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*4.53  FUNCTIONAL  MODULE  PLA2  (PIECEWISE  LINEAR  ANALYSIS  - PHASE  2) 

4.53.1  Entry  Point:  PLA2 

4.53.2  Purpose 


To  add  the  incremental  displacement  vector,  the  incremental  load  vector,  and  the  incremental 
vector  of  single-point  forces  of  constraint  for  the  current  pass  through  the  Piecewise  Linear 
Analysis  Rigid  Format  DMAP  loop  to  the  current  running  sum  of  these  vectors: 
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4.53.3  DMAP  Calling  Sequence 

PLA2  DELTAUGV,DELTAPG,DELTAQG/UGV1 ,PGV1 ,QG1/V ,N,PLAC0UNT  $ 

4.53.4  Input  Data  Blocks 

DELTAUGV  - Incremental  displacement  vector  ^n  Piecewise  Linear  Analysis  - g set. 

DELTAPG  - Incremental  load  vector  in  Piecewise  Linear  Analysis  - g set. 

DELTAQG  - Incremental  vector  of  single-point  forces  of  constraint  in  Piecewise 
Linear  Analysis  - g set. 

Note: 


1.  DELTAUGV  and  DELTAPG  cannot  be  pre-purged. 

2.  DELTAQG  may  be  pre-purged. 


4.53.5  Output  Data  Blocks 

UGVl  - Matrix  of  successive  sums  of  incremental  displacement  vectors  - g set. 

PGVl  - Matrix  of  successive  sums  of  incremental  load  vectors  - g set. 

QGl  - Matrix  of  successive  sums  of  incremental  vectors  of  single-point  forces  of 

constraint  - g set. 
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Notes : 

1.  UGVl  and  PGVl  cannot  be  purged. 

2.  QG1  may  be  purged  if  DELTAQG  is  purged. 

4.53.6  Parameters 

PLAC0UNT  - Input  and  output-integer  - this  parameter  must  be  set  to  1 outside  the 
Piecewise  Linear  Analysis  Rigid  Format  DMAP  loon.  This  is  done  using 
the  PARAM  module  rather  than  through  the  Module  Properties  List  (MPL) . 


4.53.7  Method 

If  PLAC0UNT  = 1,  that  is,  this  is  the  first  time  PLA2  has  been  called  in  the  Piecewise 
Linear  Analysis  Rigid  Format  DMAP  loop,  then  the  DELTAUGV  data  block  is  copied  onto  the  UGVl 
data  block.  If  PLAC0UNT  > 1,  then  PLAC0UNT  is  used  as  a counter  to  determine  how  many  records 
(running  sum  displacement  vectors)  to  skip  on  the  file  containing  UGVl  so  that  the  most  recently 
computed  running  sum  displacement  vector  can  be  read  into  open  core  for  the  vector  addition. 

Once  this  vector  is  read  into  open  core,  the  incremental  displacement  vector  is  read  and 
interpreted  using  subroutines  INTPK  and  ZNTPKI,  and  the  vector  addition  given  in  Equation  1 is 
carried  out  element-by-element. 

Equations  2 and  3 are  computed  using  the  method  described  in  the  above  Daraqraoh. 

4.53.8  Subroutines 

PLA2  has  no  auxiliary  subroutines. 

4.53.9  Design  Requirements 

Open  core  is  defined  at  /PLA2X/. 

4.53.10  Diagnostic  Messages 

User  message  2127  or  2128  is  output  if  either  DELTAUGV  (DELTAPG)  or  UGVl  (PGVl)  is  purged. 
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*4.54  FUNCTIONAL  MODULE  PLA3  (PIECEWISE  LINEAR  ANALYSIS  - PHASE  3) 

4.54.1  Entry  Point:  PLA3 

4.54.2  Purpose 

To  compute  element  stresses  for  nonlinear  elements  (see  definition  of  linear  elements  in 
section  4.52.2)  for  which  the  user  has  requested  stress  output.  It  also  updates  the  ESTNL  data 
block  so  that  the  output  data  block,  ESTNL 1 , contains  up-to-date  element  stress  information. 

4.54.3  DMAP  Calling  Sequence 

PLA3  CSTM ,MPT , DIT , DELTAUGV , ESTNL ,CASECC/0NLES , ESTNLl /V , N , PLAC0UNT/V , N , PLSETN0  $ 

4.54.4  Input  Data  Blocks 


CSTM 

- Coordinate  System  Transformation 

Matrices . 

MPT 

- Material  Properties  Table. 

DIT 

- Direct  Input  Tables. 

DELTAUGV 

- Current  incremental  displacement 

vector. 

ESTNL 

- Element  Summary  Table  for  Nonlinear  Elements 

CASECC 

- Case  Control  Data  Table. 

Notes : 

1.  CSTM  can  be  purged.  However,  if  some  grid  point  of  the  model  is  not  in  basic 
coordinates  and  the  CSTM  is  purged,  a fatal  error  occurs. 

2.  A fatal  error  occurs  if  either  MPT,  DIT,  DELTAUGV,  ESTNL  or  CASECC  is  ourged. 

4.54.5  Output  Data  Blocks 

0NLES  - Nonlinear  element  stresses  (to  be  processed  by  the  Output  File  Processor). 
ESTNLl  - Element  Summary  Table  for  Nonlinear  Elements  - Updated. 

Note:  Neither  output  data  block  may  be  purged. 

4.54.6  Parameters 

PLAC0UNT  - Input-integer-no  default  value.  This  is  the  Piecewise  Linear  Analysis  (PLA) 
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Rigid  Format  DMAP  loop  counter.  It  is  used  in  this  routine  to  find  the  proper 
loading  factors  on  the  PLFACT  bulk  data  card  specified  by  the  user  (see 
PLSETN0  below). 

PLTSETN0  - Input-integer-no  default  value.  PLSETN0  is  the  set  identification  number  of 
some  PLFACT  bulk  data  card  chosen  by  the  user  in  his  Case  Control  Deck.  It  is 
used  to  find  this  PLFACT  card  in  the  MPT  data  block. 

4.54.7  Method 


The  module  driver,  PLA3,  is  a short  routine  whose  only  function  is  to  call  subroutines 
PLA31  and  PLA32  which  accomplish  phase  1 and  phase  2 of  the  task  of  the  module  respectively. 
Subroutine  PLA31  reads  the  incremental  displacement  vector  into  core  and  appends  to  each  element 
entry  of  the  ESTNL  data  block  the  components  of  the  incremental  displacement  vector  corresponding 
to  the  grid  points  of  each  element.  This  merged  information  is  written  on  the  scratch  data 
block  ESTNLS,  GIN0  file  number  301.  In  PLA32,  the  ESTNLS  data  block  is  read,  and  the  proper 
element  routine  is  called  to  compute  element  stresses  which  are  prepared  in  0FP  (Output  File 
Processor)  format.  Each  element  routine  also  updates  incremental  stress  data.  The  ESTNL  data 
for  each  element  with  the  updated  stress  information  (but  without  the  components  of  the  displace- 
ment vector)  are  written  on  ESTNLl. 

In  PLA31,  for  TRMEM  and  QDMEM  elements,  only  the  three  translational  components  of  the  dis- 
placement vector  at  each  grid  point  of  the  element  are  appended  to  the  ESTNL  entry.  Other  elements 
for  which  Piecewise  Linear  Analysis  is  defined  use  all  six  components  at  each  grid  point. 

In  PLA32,  the  difference  quotients  y*  cind  y,  which  are  the  previous  and  current  (with  respect 
to  the  DMAP  loop  in  the  PLA  Rigid  Format)  load  increment  ratios,  are  computed  as  follows.  Let 
Pi,  P^j  P3,  be  the  loading  factors  on  a PLFACT  bulk  data  card.  Define  P^  = 0.  Define 

- Pi  - P,.i  . 0) 

* 

for  i ^ 1.  Then,  define  y-j  = 0,  and 


Yi 


(2) 
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*for 


i > 1,  and  define 


for  i 1 1.  These  difference  quotients  are  stored  in  /PLA32C/  for  communication  to  the  module's 
element  routines  so  that  they  can  compute  the  estimated  next  strain.  The  details  of  the  element 
calculation  are  given  in  section  4.87.  The  input  parameter  PLAC0UNT,  being  the  counter  for  the 
PLA  Rigid  Format  DMAP  loop,  controls  the  computation  of  y*  sind  y-  However,  the  module's  design 
assumes  (1)  PLAC0UNT  is  set  to  one  outside  the  PLA  DMAP  loop  and  (2)  module  PLA2,  which  incre- 
ments PLAC0UNT  by  one,  will  be  executed  prior  to  every  DMAP  call  to  PLA3.  Hence,  the  proper 
choice  for  the  subscript  i in  Equations  1,  2 and  3 is  one  less  than  the  value  of  PLAC0UNT. 

The  difference  PLAC0UNT-1  is  stored  in  /PLA32C/  as  IPASS. 

4.54.8  Subroutines 

PLA3  uses,  for  element  routine  calculations,  the  utility  routines  PRETRS,  PREMAT,  GMMATS  and 
element  drivers.  Communication  of  an  appended  ESTNL  element  entry  to  an  element  routine  during 
phase  2 of  PLA3  is  accomplished  via  /PLA32E/,  which  is  100  words  in  length.  This  fact  is  not 
explicitly  stated  below. 

The  element  drivers  PSTRM,  PSQDM,  PSTRIl,  PSTRI2,  PSQADl , and  PSQAD2,  use  a)  /PLA3ES/,  which 
is  300  words  in  length,  as  a communication  link  for  the  element  subroutines  which  they  call;  and 
b)  /PLA3UV/,  which  is  25  words  in  length,  as  a communication  link  for  displacement  vectors  between 
the  driver  and  their  subroutines.  PLA32  will  call  the  element  drivers  listed  above  (plus  PSR0D 
and  PSBAR);  the  other  subroutines  described  below  (in  sections  4.54.8.11  through  4.54.8.18)  are 
only  used  (directly  or  indirectly)  by  the  element  drivers. 

4.54.8.1  Subroutine  Name:  PLA31 

1.  Entry  Point:  PLA31 

2.  Purpose:  To  perform  phase  1 of  the  module's  operations  as  described  above. 

3.  Calling  Sequence:  CALL  PLA31 
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4.54.8.2  Subroutine  Name:  PLA32 

1.  Entry  Point:  PLA32 

2.  Purpose:  To  perform  phase  2 of  the  module's  operation  as  described  above. 

3.  Calling  Sequence:  CALL  PLA32 

4.54.8.3  Subroutine  Name:  PSR0D 

1.  Entry  Point:  PSR0D 

2.  Purpose:  To  compute  element  stresses  and  to  update  the  ESTNL  entry  for  a R0D,  C0NR0D  or 
TUBE  element.  Note  that  for  a TUBE  element,  the  ESTNL  entry  is  rearranged  and  elementary 
transformations  are  performed  in  PLA32  so  that  the  PSR0D  routine  may  compute  element  stresses 
for  a TUBE. 

3.  Calling  Sequence:  CALL  PSR0D 

4.54.8.4  Subroutine  Name:  PSBAR 

1.  Entry  Point:  PSBAR 

2.  Purpose:  To  compute  element  stresses  and  to  update  the  ESTNL  entry  for  a BAR  element. 

3.  Calling  Sequence:  CALL  PSBAR 

4.54.8.5  Subroutine  Name:  PSTRM 

1.  Entry  Point:  PSTRM 

2.  Purpose:  To  calculate  the  material  properties  matrix,  arrange  the  flow  of  element 

stress  calculations  and  update  the  ESTNL  entry  for  the  TRMEM  element. 

3.  Calling  Sequence:  CALL  PSTRM 

4.54.8.6  Subroutine  Name:  PSQDM 

1.  Entry  Point:  PSQDM 

2.  Purpose:  To  calculate  the  material  properties  matrix,  arrange  the  flow  of  element  stress 

calculations  and  update  the  ESTNL  entry  for  the  QDMEM  element. 

3.  Calling  Sequence:  CALL  PSQDM 
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^.54.8.7  Subroutine  Name:  PSTRIl 

1.  Entry  Point:  PSTRIl 

2.  Purpose:  To  calculate  the  material  properties  matrix,  arrange  the  flow  of  element  stress 

calculations  and  update  the  ESTNL  entry  for  the  TRIAl  element. 

3.  Calling  Sequence:  CALL  PSTRIl 

4.54.8.8  Subroutine  Name:  PSTRI2 

1.  Entry  Point:  PSTRI2 

2.  Purpose:  To  calculate  the  material  properties  matrix,  arrange  the  flow  of  element  stress 

calculations  and  update  the  ESTNL  entry  for  the  TRIA2  element. 

3.  Calling  Sequence:  CALL  PSTRI2 

4.54.8.9  Subroutine  Name:  PSQADl 

1.  Entry  Point:  PSQADl 

2.  Purpose:  To  calculate  the  material  properties  matrix,  arrange  the  flow  of  element  stress 

calculations  and  update  the  ESTNL  entry  for  the  QUADl  element. 

3.  Calling  Sequence:  CALL  PSQADl 

4.54.8.10  Subroutine  Name:  PSQAD2 

1.  Entry  Point:  PSAQD2 

2.  Purpose:  To  calculate  the  material  properties  matrix,  arrange  the  flow  of  element  stress 

calculations  and  update  the  ESTNL  entry  for  the  QUAD2  element. 

3.  Calling  Sequence:  CALL  PSQAD2 

4.54.8.11  Subroutine  Name:  PSTRMl 

1.  Entry  Point:  PSTRMl 

2.  Purpose:  To  generate  element  stress  matrices  for  the  TRMEM  element,  and  the  membrane 

portion  of  TRIAl  and  TRIA2  elements,  and  perform  subcomputations  for  the  PSQDMl  routine. 

3.  Calling  Sequence:  CALL  PSTRMl  (NTYPE) 
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(0  = TRMEM,  TRIM , or  TRIA2 
NTYPE  I 

(l  = Subcomputations  for  the  PSQDMl  subroutine 

4.54.8.12  Subroutine  Name:  PSQDMl 

1.  Entry  Point:  PSQDMl 

2.  Purpose:  To  generate  element  stress  matrices  for  the  QDMEM  element  and  the  membrane 

portions  of  QUADl  and  QUAD2  elements. 

3.  Calling  Sequence:  CALL  PSQDMl 

4.54.8.13  Subroutine  Name:  PSTQl 

1.  Entry  Point:  PSTQl 

2.  Purpose:  To  generate  element  stress  matrices  for  the  TRIAl , TRIA2,  QUADl,  and  QUAD2 

elements. 

3.  Calling  Sequence:  CALL  PSTQl  (NTYPE) 

II  = TRIAl 
2 = TRIA2 
3 = QUADl 
4^=  QUAD2 

4.54.8.14  Subroutine  Name:  PSTRBl 

1.  Entry  Point:  PSTRBl 

2.  Purpose:  To  generate  element  stress  matrices  for  subcalculations  of  basic  bending 

triangles  for  the  plate  portion  of  TRIAl,  TRIA2,  QUADl  and  QUAD2  elements. 

3.  Calling  Sequence:  CALL  PSTRBl  (I0PT) 

(1  = Subcalculations  for  PSQPLl 
I0PT  < 

12  = Subcalculations  for  PSTPLl 

4.54.8.15  Subroutine  Name:  PSTPLl 

1.  Entry  Point:  PSTPLl 

2.  Purpose:  To  generate  the  element  stress  matrices  for  the  plate  portion  of  TRIAl  and 
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TRIA2  elements. 

3.  Calling  Sequence:  CALL  PSTPLl 

4.54.8.16  Subroutine  Name:  PSQPLl 

1.  Entry  Point:  PSQPLl 

2.  Purpose:  To  generate  element  stress  matrices  for  the  QUADl  and  QUAD2  elements. 

3.  Calling  Sequence:  PSQPLl 

4.54.8.17  Subroutine  Name:  PSTRQ2 

1.  Entry  Point;  PSTRQ2 

2.  Purpose:  To  perform  final  stress  computations  for  TRMEM  and  QDMEM  elements. 

3.  Calling  Sequence:  CALL  PSTRQ2  (NTYPE) 

(1  = TRMEM  element 
NTYPE  < 

(2  = QDMEM  element 

4.54.8.18  Subroutine  Name:  PSTQ2 

1.  Entry  Point:  PSTQ2 

2.  Purpose:  To  perform  final  stress  computations  for  the  TRIAl , TRIA2,  QUADl,  and  QUAD2 

elements. 

3.  Calling  Sequence:  CALL  PSTQ2  (NPTS) 

(3  = TRIAl  and  TRIA2  elements 
NPTS  < 

(4  = QUADl  and  QUAD2  elements 
4.54.9  Design  Requirements 

1.  The  module  was  designed  so  that  phase  1 and  phase  2 can  be  executed  in  separate  overlay 
segments. 

2.  Open  core  for  phase  1 is  defined  at  /PLA31X/  and  for  phase  2 at  /PLA32X/.  Open  core 
requirements  for  both  phases  are  minimal.  In  phase  1,  the  single  precision  incremental 
displacement  vector  in  unpacked  form  must  be  able  to  be  contained  in  open  core.  In  phase  2, 
the  CSTM  and  MPT  data  blocks,  tables  in  the  DIT  referenced  on  MATSl  bulk  data  cards,  and 
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the  first  record  (and  only  record  since  a PLA  problem  allows  only  one  CASECC  record)  of 
CASECC  must  be  able  to  be  contained  in  open  core. 

3.  In  addition  to  the  common  blocks  mentioned  above,  PLA32  uses  /PLA32S/,  which  is  325 
words  in  length,  as  scratch  storage  for  the  module's  element  routines,  and  /S0UT/,  which 
is  30  words  in  length,  as  a storage  buffer  for  computed  element  stresses. 

4.  One  scratch  file  is  used,  and  all  arithmetic  operations  are  performed  in  single 
precision. 

4.54.10  Diagnostic  Messages 

During  phase  1,  the  following  diagnostic  messages  may  appear.  If  the  incremental  displace- 
ment vector  is  null,  user  fatal  error  3005  will  be  given.  Two  system  fatal  "fail-safe"  error 
messages,  2091  and  2092,  may  be  implemented  if  the  ESTNL  input  data  block  was  incorrectly  con- 
structed in  PLAl  or  was  incorrectly  updated  during  the  previous  execution  of  the  PLA3  module. 

During  phase  2,  error  messages  3001,  3002  or  3003  may  occur  if  the  proper  loading  factors 
P.  cannot  be  found  on  the  PLFACT  bulk  data  card  image  in  the  MPT.  If  the  ECPTDS  scratch  file 

J 

is  not  in  the  prescribed  format,  system  fatal  message  2091  will  occur. 

If  the  minimal  core  storage  requirements  in  either  phase  1 or  phase  2 are  not  met,  the 
usual  fatal  error  3008  will  occur. 
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*"4.55  FUNCTIONAL  MODULE  PLA4  (PIECEWISE  LINEAR  ANALYSIS  - PHASE  4) 

4.55.1  Entry  Point:  PLA4 

4.55.2  Purpose 

To  generate  the  stiffness  matrix  for  nonlinear  elements,  [Kgg3>  and  to  update  the 
Element  Connection  and  Properties  Table  for  Nonlinear  Elements,  ECPTNL,  so  that  it  contains 
up-to-date  element  stress  information. 


4.55.3  DMAP  Calling  Sequence 

PLA4  CSTM, HPT, ECPTNL, GPCT,DIT,DELTAUGV/KGGNL,ECPTNL1/V,N,PLAC0UNT/V,N.PLSETN0/ 
V,N,PLFACT  $ 

4.55.4  Input  Data  Blocks 

CSTM  - Coordinate  System  Transformation  Matrices. 

MPT  - Material  Properties  Table. 

ECPTNL  - Element  Connection  and  Properties  Table  for  Nonlinear  Elements. 

GPCT  - Grid  Point  Connection  Table. 

DIT  - Direct  Input  Tables. 

DELTAUGV  - Current  incremental  displacement  vector. 


Notes : 

1.  CSTM  may  be  purged.  However,  if  some  grid  point  of  the  model  is  not  in  basic 
coordinates  and  the  CSTM  has  been  purged,  a fatal  error  will  occur. 

2.  A fatal  error  occurs  if  either  MPT,  ECPTNL,  GPCT,  DIT  or  DELTAUGV  is  purged. 


4.55.5  Output  Data  Blocks 

KGGNL  - Stiffness  matrix  of  nonlinear  elements  - g set. 

ECPTNLl  - Element  Connection  and  Properties  Table  for  Nonlinear  Elements  - updated. 
Note:  Neither  KGGNL  or  ECPTNLl  may  be  purged. 
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^4.55.6  Parameters 

PLAC0UNT  - Input-integer-no  default  value.  Loop  counter  for  the  Piecewise  Linear 

Analysis  (PLA)  Rigid  Format  DMAP  loop.  The  module  uses  this  parameter  to  find 
the  correct  loading  factors  on  the  PLFACT  bulk  data  card  chosen  by  the  user. 

PLSETN0  - Input-integer-no  default  value.  Set  identification  number  of  a PLFACT 

bulk  data  card  chosen  by  the  user  in  his  Case  Control  Deck.  The  module  uses 
this  parameter  to  search  the  MPT  for  this  card. 

PLFACT  - Output-complex-no  default  value.  The  difference  of  loading  factors  to  be  used 
during  the  next  pass  of  the  PLA  Rigid  Format  DMAP  loop. 

4.55.7  Method 

The  module  driver  PLA4  is  a short  routine  whose  only  function  is  to  call  subroutines 
PLA41  and  PLA42  which  accomplish  phase  1 and  phase  2 of  the  task  of  the  module  respectively. 
Subroutine  PLA41  reads  the  incremental  displacement  vector  into  core  and  appends  to  each 
element  entry  of  the  ECPTNL  data  block  the  components  of  the  incremental  displacement  vector 
corresponding  to  the  grid  points  of  each  element.  This  merged  information  is  written  on  the 
scratch  data  block  ECPTS,  GIN0  file  number  301.  In  PLA42,  the  ECPTS  data  block  is  processed 
in  a fashion  similar  to  the  processing  of  the  ECPT  data  block  in  module  SMAl  (see  the  Module 
Functional  Description  for  SMAl,  section  4.27). 

In  PLA41 , for  all  elements  except  the  BAR  element,  only  the  three  translational 
components  of  the  displacement  vector  at  each  grid  point  of  an  element  are  appended  to  the 
ECPTNL  element  entry.  For  a BAR  element,  all  six  components  of  the  displacement  vector  at 
each  grid  point  are  appended. 

The  logic  of  the  processing  of  the  scratch  data  block,  ECPTS,  in  PLA42  is  very  similar 
to  that  used  in  subroutine  SMAl A (of  SMAl,  the  stiffness  matrix  generation  module  - see 
the  Module  Functional  Description  for  SMAl,  section  4.27).  The  similarities  are  not  enumerated 
here,  but  notable  differences  are  the  following. 

1.  Before  PREMAT  is  called  to  read  into  open  core  the  MPT  data  block  and  tables  from 

the  DIT  data  block  referenced  on  MATSl  bulk  data  cards,  the  MPT  is  read  in  subroutine 
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PLA42  to  compute  y*  and  y as  in  Equations  1,  2 and  3 in  section  4.54,  and  the  real  part 
of  the  output  DMAP  parameter  PLFACT  is  set  to  the  value  of  a^^-j  in  Equation  3 in  section 
4.54.  The  imaginary  part  of  PLFACT  is  set  to  zero,  the  reason  for  PLFACT  being  complex  is 
that  it  is  an  input  parameter  to  the  DMAP  module  ADD  during  the  next  pass  of  the  PLA 
Rigid  Format  DMAP  loop,  and  ADD  (see  section  4.78)  requires  its  parameters  to  be  complex. 

2.  When  PREMAT  is  called,  the  last  argument  is  set  negative  to  signal  PREMAT  that  this 
is  a PLA  problem  and  hence  that  special  processing  will  be  required. 

3.  Subsequent  to  the  call  of  an  element  routine,  the  element  type  and  the  updated  ECPT 
entry  are  written  onto  the  ECPTNLl  data  block. 

4.55.8  Subroutines 

PLA4  uses  PRETRD,  PRETRS,  PREMAT,  INVERS,  INVERD,  GMMATS,  and  GMMATD  as  utility  routines.  The 
common  block  /PLA42E/  is  the  means  of  communicating  a)  the  element  entry  of  the  ECPTS  from  PLA42 
to  an  element  stiffness  matrix  generation  routine  and  b)  the  ECPTS  element  entry  with  updated 
stress  information  from  the  element  routine  back  to  PLA42  upon  completion  of  element  matrix 
generation.  This  fact  is  not  explicitly  stated  in  the  descriptions  of  the  element  routines 
(e.g.,  PKR0D)  given  below. 

The  element  drivers  PKTRM,  PKQDM,  PKTRIl,  PKTRI2,  PKQADl,  and  PKQAD2  use  a)  /PLA4ES/,  which 
is  300  words  in  length,  and  b)  /PLA4UV/,  which  is  25  words  in  length,  as  communication  links  with 
the  subroutines  that  they  call.  PLA42  will  call  the  drivers  listed  above  which  will  use  (directly 
and  indirectly)  the  subroutines  described  below  in  sections  4.55.8.12  through  4.55.8.22. 

4.55.8.1  Subroutine  Name:  PLA41 

1.  Entry  Point:  PLA41 

2.  Purpose:  See  discussion  above. 

3.  Calling  Sequence:  CALL  PLA41 

4.55.8.2  Subroutine  Name:  PLA42 

1.  Entry  Point:  PLA42 

2.  Purpose:  See  discussion  above. 
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3.  Calling  Sequence:  CALL  PLA42 

4.55.8.3  Subroutine  Name:  PLA4B 

1.  Entry  Point:  PLA4B 

2.  Purpose:  To  add  a double  precision  6 by  6 element  stiffness  matrix  to  the  "submatrix" 
corresponding  to  the  current  pivot  point.  This  routine  performs  the  same  function  as,  and 
is  modeled  after,  subroutine  SMAIB  of  module  Si'IAl . 

3.  Calling  Sequence:  CALL  PLA4B  (KE,J) 

KE  - Row-stored  double  precision  6 by  6 matrix  to  be  added  to  the  submatrix  in  core  - input. 

J - The  column  index  of  the  KGGNL  matrix  which  corresponds  to  first  column  of  the  KE 

matrix  - integer  - input. 

4.55.8.4  Subroutine  Name:  PKR0D 

1.  Entry  Point:  PKR0D 

2.  Purpose:  To  generate  the  element  stiffness  matrix  for  a R0D  element  and  to  update 
the  ECPTNL  element  entry  for  a R0D  element. 

3.  Calling  Sequence:  CALL  PKR0D 

4.55.8.5  Subroutine  Name:  PKBAR 

1.  Entry  Point:  PKBAR 

2.  Purpose:  To  generate  the  element  stiffness  matrix  for  a BAR  element  and  to  update  the 

ECPTNL  element  entry  for  a BAR  element. 

3.  Calling  Sequence:  CALL  PKBAR 

4.55.8.6  Subroutine  Name:  PKTRM 

1.  Entry  Point:  PKTRM 

2.  Purpose:  To  calculate  the  material  properties  matrix,  update  the  ECPTNL  entry,  and 

arrange  the  flow  of  element  stiffness  calculations  for  the  TRMEM  element. 

3.  Calling  Sequence:  PKTRM 
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8.7  Subroutine  Name;  PKQDM 

1.  EEntry  Point:  PKQDM 

2.  Purpose:  To  calculate  the  material  properties  matrix,  update  the  ECPTNL  entry,  and 

arrange  the  flow  of  element  stiffness  calculations  for  the  QDMEM  element. 

3.  Calling  Sequence:  CALL  PKQDM 

8.8  Subroutine  Name:  PKTRIl 

1.  Entry  Point:  PKTRIl 

2.  Purpose:  To  calculate  the  material  properties  matrix,  update  the  ECPTNL  entry,  and 

arrange  the  flow  of  element  stiffness  calculations  for  the  TRIAl  element. 

3.  Calling  Sequence:  CALL  PKTRIl 

8.9  Subroutine  Name:  PKTRI2 

1.  Entry  Point:  PKTRI2 

2.  Purpose:  To  calculate  the  material  properties  matrix,  update  the  ECPTNL  entry,  and 

arrange  the  flow  of  element  stiffness  calculations  for  the  TRIA2  element. 

3.  Calling  Sequence;  CALL  PKTRI2 

8.10  Subroutine  Name:  PKQADl 

1.  Entry  Point:  PKQADl 

2.  Purpose:  To  calculate  the  material  properties  matrix,  update  the  ECPTNL  entry,  and 

arrange  the  flow  of  element  stiffness  calculations  for  the  QUADl  element. 

3.  Calling  Sequence:  CALL  PKQADl 

8.11  Subroutine  Name:  PKQAD2 

1.  Entry  Point:  PKQAD2 

2.  Purpose:  To  calculate  the  material  properties  matrix,  update  the  ECPTNL  entry,  and 

arrange  the  flow  of  element  stiffness  calculations  for  the  QUAD2  element. 

3.  Calling  Sequence:  CALL  PKQAD2 
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4.55.8.12  Subroutine  Name:  PKTRMl 

1.  Entry  Point:  PKTRMl 

2.  Purpose:  To  generate  element  stress  matrices  for  the  TRMEM,  TRIAl  and  TRIA2  elements, 

and  perform  subcomputations  for  the  PKQDMl  routine. 

3.  Calling  Sequence:  CALL  PKTRMl  (NTYPE) 


(0  = TRMEM,  TRIAl  or  TRIA2 
NTYPE  < 

(l  = Subcomputations  for  the  PKQDMl  routine 

4.55.8.13  Subroutine  Name:  PKQDMl 

1.  Entry  Point:  PKQDMl 

2.  Purpose:  To  generate  element  stress  matrices  for  the  QDMEM,  QUADl  and  QUAD2  elements. 

3.  Calling  Sequence:  CALL  PKQDMl 

4.55.8.14  Subroutine  Name:  PKTQl 

1.  Entry  Point:  PKTQl 

2.  Purpose:  To  generate  element  stress  matrices  for  the  TRIAl,  TRIA2,  QUADl,  and  QUAD2 

elements, 

3.  Calling  Sequence:  CALL  PKTQl  (NTYPE) 

II  = TRIAl 
2 = TRIA2 
3 = QUADl 
4 = QUAD2 

4.55.8.15  Subroutine  Name:  PKTRQ2 

1.  Entry  Point:  PKTRQ2 

2.  Purpose:  To  perform  final  stress  computations  for  the  TRMEM  and  QDMEM  elements. 

3.  Calling  Sequence:  CALL  PKTRQ2  (NTYPE) 


1 = TRMEM  element 


NTYPE 


2 = QDMEM  element 
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^4.55.8.16  Subroutine  Name:  PKTQ2 

1.  Entry  Point:  PKTQ2 

2.  Purpose:  To  perform  final  stress  computations  for  the  TRIAl , TRIA2,  QUAD!,  and  QUAD2 

elements. 

3.  Calling  Sequence:  CALL  PKTQ2  (NPTS) 

(3  = TRIAl  or  TRIA2  elements 
NPTS  < 

l4  = QUADl  or  QUAD2  elements 

4.55.8.17  Subroutine  Name:  PKTRMS 

1.  Entry  Point:  PKTRMS 

2.  Purpose:  To  generate  the  element  stiffness  matrix  for  the  TRMEM  element  and  sub- 

computations for  the  PKQDMS  routine. 

3.  Calling  Sequence:  CALL  PKTRMS  (NTYPE) 

(0  = TRMEM 
NTYPE  < 

(l  = Sub-computations  for  PKQDMS 

4.55.8.18  Subroutine  Name:  PKQDMS 

1.  Entry  Point:  PKQDMS 

2.  Purpose:  To  generate  the  element  stiffness  matrix  for  the  QDMEM  element. 

3.  Calling  Sequence:  CALL  PKQDMS 

4.55.8.19  Subroutine  Name:  PKTRQD 

1.  Entry  Point:  PKTRQD 

2.  Purpose:  To  generate  the  element  stiffness  matrix  for  the  TRIAl,  TRIA2,  QUADl,  or 

QUAD2  elements. 

3.  Calling  Sequence:  CALL  PKTRQD  (NTYPE) 
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11  = TRIAl 
2 = TRIA2 
3 = QUADl 
4 = QUAD2 

4.55.8.20  Subroutine  Name:  PKTRBS 

1.  Entry  Point:  PKTRBS 

2.  Purpose:  To  generate  the  element  stiffness  matrix  subcalculations  for  the  PKTRPL  and 

PKQDPL  routines. 

3.  Calling  Sequence:  CALL  PKTRBS  (I0PT) 

(1  = Subcomputations  for  PKQDPL 
I0PT  < 

12  = Subcomputations  for  PKTRPL 

4.55.8.21  Subroutine  Name:  PKTRPL 

1.  Entry  Point:  PKTRPL 

2.  Purpose:  To  generate  the  element  stiffness  matrix  for  the  TRIAl  and  TRIA2  elements. 

3.  Calling  Sequence:  CALL  PKTRPL 

4.55.8.22  Subroutine  Name:  PKQDPL 

1.  Entry  Point:  PKQDPL 

2.  Purpose:  To  generate  the  element  stiffness  matrix  for  the  QUADl  and  QUAD2  elements. 

3.  Calling  Sequence:  CALL  PKQDPL 

4.55.9  Design  Requirements 

The  module  was  designed  so  that  phase  1 and  phase  2 can  be  executed  in  separate  overlay 
segments. 

Open  core  for  phase  1 is  defined  at  /PLA41X/  and  for  phase  2 at  /PLA42X/.  In  phase  1 the 
single  precision  incremental  displacement  vector  in  unpacked  form  must  be  able  to  be  contained  in 
core.  In  phase  2,  the  open  core  requirements  are  the  same  as  those  for  module  SMAl  (see  section 
4.27.9.1)  except  that  only  four  GIN0  buffers  are  required  during  the  principal  loop  of  phase  2, 
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which  processes  the  ECPTS  and  GPCT  in  a complementary  manner.  One  GIN0  buffer  is  defined  for 
each  of  KGGNL,  ECPTNLl , ECPTS  and  GPCT. 


In  addition  to  /PLA42E/,  which  is  100  words  in  length,  subroutine  PLA42  uses  the  following 
common  blocks:  a)  /PLA42D/,  which  is  300  double  precision  words  in  length,  and  is  used  as  a 

scratch  storage  for  the  module's  element  routines;  b)  /PLA425/,  which  is  325  single  precision  words 
in  length,  and  is  used  as  scratch  storage  for  the  module  element  routines;  and  c)  /PLA42C/,  which 
is  a communication  region  for  phase  2 of  the  task  of  the  module.  /PLA42C/  is  defined  as  follows: 


C0MM0N/PLA42C/NPVT,GAMf^, GAMMAS, IPASS,ICSTM,NCSTM,IGPCT,NGPCT,IP0INT,NP0INT,I6X6K,N6X6K,CSTM, MPT, 
ECPTS, GPCT, DIT,KGGNL,ECPT0,INRW,0UTRW,E0R,NE0R,CLSRW, UMAX, FR0WIC,LR0WIC,NR0WSC,NLINKS,NW0RDS(4O), 
I0VRLY(4O),LINK(4O),N0G0 


GAMMA, GAMMAS 


The  load  increment  ratios  as  defined  in  Equations  2 and  3 in 


section  4.54. 


I PASS 


Number  of  the  current  pass  through  the  PLA  DMAP  loop. 


NPVT,ICSTM,NCSTM,IGPCT,  f 

NGPCT,IP0INT,NP0INT,  ( - As  defined  in  section  4.27.9. 

I6X6K,N6X6K  ^ 


CSTM, MPT, ECTPS, GPCT, 
DIT,KGGNL 


GIN0  file  numbers  for  their  corresponding  data  blocks. 


ECPT0 


GIN0  file  number  for  the  ECTPNLl  data  block. 


INRW,0UTRW,..., 

I0VRLY(4O),LINK(4O),N0G0 


As  defined  in  section  4.27.9. 


The  variables  a)  corresponding  to  GIN0  file  numbers,  b)  GIN0  parameter  options  (e.g.,  INRW, 
0UTRW),  and  c)  NLINKS,  I0VRLY,  and  NW0RDS,  and  N0G0  are  set  in  the  block  data  subprogram  PLA4BD. 


One  scratch  file  is  used,  and  all  operations  associated  with  stiffness  matrix  calculations 
are  performed  in  double  precision. 


4.55.10  Diagnostic  Messages 

During  phase  1,  if  the  incremental  displacement  vector  is  null,  user  fatal  error  2083  will 
occur. 

During  phase  2,  error  messages  3001,  3002,  or  3003  may  occur  if  the  proper  loading  factors 
cannot  be  found  on  the  PLFACT  bulk  data  card  image  in  the  MPT.  Other  diagnostic  messages  for 
phase  2 are  the  same  as  those  for  module  SMAl  (see  section  4.27.10). 
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^4,56  FUNCTIONAL  MODULE  CASE  (SIMPLIFY  CASE  CONTROL) 

4.56.1  Entry  Point:  CASE 

4.56.2  Purpose 

To  remove  looping  considerations  from  later  dynamics  modules. 

4.56.3  DMAP  Calling  Sequence 

CASE  CASECC,PSDL/CASEXX/C,N,APPR0ACH/V,N,REPEAT/V,N,L00P  $ 


4.56.4  Input  Data  Blocks 

CASECC  - Case  Control  Data  Table. 

PSDL  - Power  Spectral  Density  List. 

Note:  PSDL  is  used  only  if  APPR0ACH  = FREQRESP  and  Random  Analysis  is  selected  in  CASECC. 

4.56.5  Output  Data  Blocks 

CASEXX  - Case  Control  data  table  for  dynamics  problems. 

Note:  CASEXX  cannot  be  purged. 

4.56.6  Parameters 


APPR0ACH 


Input-BCD-no  default. 

Defines  the  approach  to  be  used  for  looping 

criteria. 

BCD  Value 

L00P 

STATICS 

N0NE 

REIGEN 

N0NE 

DSO 

N0NE 

DSl 

N0NE 

FREQRESP 

DIRECT 

INPUT  MATRICES  OR  TRANSFER  FUNCTIONS 

TRANRESP 

L0ADS 

BLKO 

N0NE 

3LK1 

N0NE 

CEIGEN 

DIRECT 

INPUT  MATRICES  OR  TRANSFER  FUNCTIONS 
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BCD  Value  LQgP 

PLA  N0NE 

REPEAT  - Input  and  output-integer-set  equal  to  zero  outside  of  the  DMAP  loop  by  the  PARAM 
module.  -1  if  no  additional  loops;  + loop  count  if  loops. 

L00P  - Output-integer-default  = -1.  -1  if  this  is  not  a looping  problem,  0 if  this 

is  a looping  problem. 

4.56.7  Method 

The  method  of  operation  depends  upon  the  input  parameter  APPR0ACH. 

4.56.7.1  Transient  Response 

If  APPROACH  = TRANRESP,  CASECC  is  skipped  over  REPEAT  records.  If  REPEAT  = 0,  REPEAT  is  set 
to  1.  One  record  of  CASECC  is  read  and  copied  onto  CASEXX.  An  attempt  is  made  to  read  another 
record.  If  no  more  records  exist,  REPEAT  is  set  to  -1.  Also,  if  this  is  the  first  entry  to  CASE 
(i.e.,  REPEAT  =1),  L00P  is  set  to  -1.  If  additional  records  exist,  REPEAT  and  L00P  are  set  to  1. 

4.56.7.2  Complex  Eigenvalue  Analysis 

If  APPR0ACH  = CEIGEN,  REPEAT  records  are  skipped  in  CASECC.  If  REPEAT  = 0,  REPEAT  is  set  to 
1.  One  record  of  CASECC  is  read  and  copied  onto  CASEXX.  The  names  of  the  Direct  Input  Matrices 
and  Transfer  Functions  sets  are  saved.  An  attempt  is  made  to  read  another  record.  If  no 
more  exist,  REPEAT  is  set  to  -1.  Also  if  this  is  the  first  entry  (i.e.,  REPEAT  = 1)  L00P  is  set 
to  -1.  If  additional  records  exist,  their  Direct  Input  Matrices  and  Transfer  Functions  sets  are 
compared  to  those  saved.  If  they  all  agree,  this  record  is  copied  onto  CASEXX  and  the  process 
is  repeated.  If  they  do  not  agree,  REPEAT  is  incremented  by  1,  L00P  is  set  to  1,  and  CASE  returns. 

4.56.7.3  Frequency  Response 

If  APPR0ACH  = FREQRESP,  the  method  used  is  the  same  as  Complex  Eigenvalue  Analysis  except  a 
test  is  also  made  for  frequency  set  selection  changes.  In  addition,  if  RANDPS  cards  are  selected, 
the  selected  set  is  read  from  PSDL  and  the  unique  subcase  "id's"  referenced  are  stored.  Each  sub- 
case id  copied  onto  CASEXX  is  compared  to  this  list,  and  the  entry  is  marked  as  found.  If  at  the 
completion  of  CASE  unmarked  entries  exist,  the  routine  terminates  with  message  3033. 
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^.56.8. 


Subroutines 


No  auxiliary  subroutines  are  used  by  CASE. 
4.56.9  Design  Requirements 

Open  core  is  defined  at  /CASC0R/. 


I Present  only  if  RAND0M  checks  done 
/ 3 GIN0  buffers 


4.56.10  Diagnostic  Messages 

If  a case  control  record  cannot  be  held  in  core. 
Message  3033  may  be  issued  by  CASE  as  outlined  above. 


CASE  will  issue  error  message  3008. 
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4.57  FUNCTIONAL  MODULE  MTRXIN  (MATRIX  INPUT) 

4.57.1  Entry  Point:  MTRXIN 

4.57.2  Purpose 

MTRXIN  has  two  purposes:  (1)  to  provide  a capability  for  direct  input  matrices  as  may  occur 

in  control  systems  in  the  dynamics  Rigid  Formats  and,  (2)  to  provide  the  DMAP  user  a capability 
of  converting  matrices  input  on  DMIG  bulk  data  cards  to  NASTRAN  matrix  format. 

4.57.3  DMAP  Calling  Sequences 
1.  Dynamics  Rigid  Formats: 

V,N,N0MAT2/V,N,NOMAT3  $ 


2.  DMAP  Approach: 


MTRXIN, 


,MATP00L,EQEXIN,,/NAME1,NAME2,NAME3/V,N,LUSET/V,N,N0MAT1/V,N,N0MAT2/V,N,N0MAT3  $ 


4.57.4  Input  Data  Blocks 


CASECC  - 
CASEXX  - 
MATP00L  - 
BDP00L  - 
EQDYN  - 
TFP00L  - 
EQEXIN  - 


Case  Control . 

Case  Control  data  table  for  dynamics  problems. 

Data  block  containing  matrices  input  on  DMIG  bulk  data  cards. 
Hydroelastic  boundary  matrix  tables. 

Equivalence  between  external  numbers  and  internal  numbers,  dynamics. 
Transfer  Function  Pool. 

Equivalence  between  external  numbers  and  internal  numbers. 


Notes: 

1.  If  CASECC  is  purged,  the  second  purpose  is  assumed  by  MTRXIN. 

2.  EQDYN,  EQEXIN,  SIL  and  SILD  may  not  be  purged. 
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4.57.5  Output  Data  Blocks 


K2DPP  - 

K2PP  ( 
HK2PP  \ ' 

M2DPP  - 

M2PP  - 

B2PP  ( 
HB2PP  ( " 

NAME!  ) 
NAME 2 [ - 
NAMES  ) 


Direct  input  differential  stiffness  matrix  - p set. 

Direct  input  mass  matrix  - p set. 

Direct  input  differential  mass  matrix  - p set. 

Direct  input  mass  matrix  - p set. 

Direct  input  damping  matrix  - p set. 

The  same  names  that  appear  on  the  DMIG  cards,  i.e.,  the  DMIG  matrix  called 
NAMEl  will  be  output  on  data  block  NAMEl . 


Note:  Any  output  data  block  may  be  purged. 


4.57.6  Parameters 


LUSET  - Input-integer-no  default.  Degrees  of  freedom  in  the  g set.  Used  with  EQEXIN 

and  SIL. 

LUSETD  - Input-integer-no  default.  Degrees  of  freedom  in  the  p set.  Used  with  EQDYN 
and  SILD. 

NpMATi  - Output-integer-no  default.  +1  if  the  i^^  output  data  block  is  generated, 

-1  otherwise. 


4.57.7  DMAP  Example 

Assume  the  bulk  data  contain  two  DMIG  matrices  named  Ml  and  M2  which  reference  grid  and/or 
scalar  points  only.  The  following  set  of  DMAP  instructions  will  generate  these  two  matrices  in 
NASTRAN  matrix  format,  multiply  them  together  and  print  the  result. 


BEGIN 

GPl  GEOM1,GE0M2/GPL, EQEXIN, GPDT,CSTM,BGPDT,SIL/V,N,LUSET/C,N, 0/C, N,0  $ 

SAVE  LUSET  $ 

MTRXIN,  ,MATP00L, EQEXIN,  ,/Ml ,M2,/V,N,LUSET/V,N,N0M1/V,N,N0M2/C,N,O  $ 

SAVE  N0M1,N0M2  $ 

C0ND  EXIT,N0M1  $ 

MPYAD  Ml ,M2,/PR0DUCT/C,N,O/C,N,1/C,N,1  $ 

MATPRN  PRODUCT,,,,//  $ 

LABEL  EXIT  $ 

END 
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*4.57.8  Method 

The  first  logical  record  in  the  Case  Control  data  block  is  read  into  core,  and  the  names  of 
the  requested  DMIG  matrices  are  fetched.  If  the  Case  Control  data  block  is  purged,  FNAME  is 
called  to  determine  the  names  of  the  DMIG  matrices  from  the  names  of  the  output  data  blocks.  If 
the  Case  Control  record  was  read,  the  transfer  function  set  selection  is  fetched.  If  transfer 
matrices  are  requested,  the  TFP00L  data  block  is  opened,  and  the  file  is  positioned  to  the 
requested  set.  Each  transfer  function  matrix  for  which  a corresponding  direct  input  matrix  exists 
is  written  on  a scratch  file.  If  no  direct  input  matrix  exists  corresponding  to  a transfer  func- 
tion matrix,  the  transfer  function  matrix  is  written  directly  on  the  appropriate  output  data  block. 
The  transfer  function  matrices  are  written  in  NASTRAN  matrix  format  by  decoding  the  row  and 
column  numbers  and  calling  BLDPK. 

Upon  completion  of  the  writing  of  the  transfer  function  matrices  (if  any),  the  second  record 
of  EQEXIN  or  EQDYN  is  read  into  core.  The  second  word  of  each  entry  is  converted  into  a scalar 
index  number  by  dividing  by  10.  The  MATP00L  data  block  is  opened.  The  following  processing 
occurs: 

1.  The  header  information  for  the  DMIG  matrix  is  read.  If  an  end-of-file  is  encountered, 
step  (5)  is  executed.  If  the  matrix  is  not  requested,  the  remainder  of  the  record  is 
skipped  and  step  (1)  is  repeated.  Otherwise,  step  (2)  is  executed. 

2.  Each  term  in  the  matrix  is  read.  The  grid  identification  and  component  code  are 
converted  to  a scalar  index  value  by  performing  a binary  search  in  EQEXIN  or  EQDYN  in 
core.  The  scalar  index  forms  a row  position  of  the  matrix.  The  row  and  column  number 
(packed  in  one  word)  and  the  value  for  the  term  are  stored  in  core.  If  core  storage  is 
exceeded,  the  terms  are  written  on  a scratch  file. 

3.  When  all  terms  have  been  read,  converted  and  stored,  the  matrix  is  sorted  by  S0RT. 

The  matrix  is  now  written  in  NASTRAN  format  by  BLDPK. 

4.  If  a transfer  function  is  to  be  added  to  the  DMIG  matrix,  the  ADD  routine  is  called 
to  accomplish  the  matrix  addition. 

5.  A test  is  made  to  determine  if  all  requested  matrices  have  been  processed.  If  not, 

an  error  message  is  queued,  and  PEXIT  is  called.  Otherwise,  the  module  makes  a normal  exit. 
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4.57.9  Design  Requirements 

4.57.9.1  Allocation  of  Core  Storage 

Storage  is  required  to  hold  the  EQDYN  or  EQEXIN  table  (2  words  per  point  in  the  problem)  plus 
five  GIN0  buffers.  Complete  spill  logic  is  provided  for  processing  the  DMIG  matrices. 

4.57.9.2  En vi ronment 

The  module  MTRXIN  consists  of  one  subroutine,  MTRXIN.  Calls  are  made  to  the  utility  routine 
S0RT  and  matrix  operation  ADD.  Open  core  is  defined  by  /MTRXXX/.  Seven  scratch  files  are  used. 

4.57.10  Diagnostic  Messages 

The  following  messages  may  be  issued  by  MTRXIN: 

2065,  2070,  2074. 
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4.58  FUNCTIONAL  MODULE  GKAD  (GENERAL  K ASSEMBLER  DIRECT) 

4.58.1  Entry  Point:  GKAD 

4.58.2  Purpose 

To  assemble  the  dynamic  stiffness,  damping  and  mass  matrices. 


4.58.3  DMAP  Calling  Sequence 

p.-n  /HUSETD\  <HG0l  /HKAAl  /HBAA\  /HRAA\ 
luSETD  MkAA  MbAA  MmAA  / 


HKDD\  iHBDD\  (HRDD\  fHG0D\  /HK2DD 
KDD  j’lBDD  /MMDD  j’^'^^’lG0D  /’IK2DD 


. K4AA,|J^^J^},  M2PP, 

HHM2DD)  fHB2DDi/ 
M2DD  J’\B2DD  T 


4.58.4  Input  Data  Blocks 


HUSETD 

USETD 

GM 

G0 

KAA 

BAA 

MAA 

K4AA 

K2PP 

M2PP 

B2PP 

HG0 

HKAA 

HBAA 

HRAA 

HK2PP 

HB2PP 


Displacement  set  difinitions  table  dynamics. 

Multipoint  constraint  transformation  matrix  - m set. 
Structural  matrix  partitioning  transformation  matrix. 
Partition  of  stiffness  matrix  - a set. 

Partition  of  damping  matrix  - a set. 

Partition  of  mass  matrix  - a set. 

Partition  of  structural  damping  matrix  - a set. 

Direct  input  stiffness  matrix  - p set. 

Direct  input  mass  matrix  - p set. 

Direct  input  damping  matrix  - p set. 

Heat  matrix  partitioning  transformation  matrix. 
Partition  of  the  conductivity  matrix  - a set. 
Partition  of  the  capacity  matrix  - a set. 

Partition  of  the  radiation  matrix  - a set. 

Direct  input  conductivity  matrix  - p set. 

Direct  input  capacity  matrix  - p set. 


HB2PPI / 
B2PP 
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Notes: 

1.  USETD  cannot  be  purged. 

2.  GM  cannot  be  purged  if  MPCFl  ^ 0. 

3.  G0  cannot  be  purged  if  0MIT  ^ 0. 

4.  KAA  cannot  be  purged  if  KDEKA  ^ 0. 

5.  BAA  cannot  be  purged  if  N0BGG  > 0. 

6.  MAA  may  be  purged. 

7.  K4AA  cannot  be  purged  if  N0K4GG  ^ 0. 

8.  K2PP  cannot  be  purged  if  N0K2PP  ^ 0. 

9.  M2PP  cannot  be  purged  if  N0M2PP  ^ 0. 
10.  B2PP  cannot  be  purged  if  N0B2PP  ^ 0. 

4.58.5  Output  Data  Blocks 


KDD 

- Dynamic  stiffness  matrix  - d set. 

BDD 

- Dynamic  damping  matrix  - d set. 

MDD 

- Dynamic  mass  matrix  - d set. 

GMD 

- Multipoint  constraint  transformation  matrix  - dynami 

HG0D 

G0D 

- Omitted  coordinate  transformation  matrix  - dynamics. 

K2DD 

- Direct  input  stiffness  matrix  - d set. 

M2DD 

- Direct  input  mass  matrix  - d set. 

B2DD 

- Direct  input  damping  matrix  - d set. 

HKDD 

- Dynamic  conductivity  matrix  - d set. 

HBDD 

- Dynamic  capacity  matrix  - d set. 

HRDD 

- Dynamic  radiation  matrix  - d set. 

HK2DD 

- Direct  input  conductivity  matrix  - d set. 

HM2DD 

- Direct  input  radiation  matrix  - d set. 

HB2DD 

- Direct  input  capacity  matrix  - d set. 

Notes: 

1.  GMD  cannot  be  purged  if  MPCF  0. 

2.  G0D  cannot  be  purged  if  0MIT  ^ 0. 

3.  K2DD  cannot  be  purged  if  N0K2PP  ^ 0. 

4.  M2DD  cannot  be  purged  if  N0M2PP  ^ 0. 

5.  B2DD  cannot  be  purged  if  N0B2PP  ^ 0. 
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4.58.6  Parameters 


TYPE 

• Input-BCD-no  default.  If  TYPE  = TRANSIENT  the  transient  equations  are  used; 
otherwise  the  frequency  response  equations  are  useo. 

APP 

• Input-BCD-no  default.  If  APP  = F0RCE  the  p set  = d set;  otherwise  p's  are 
reduced  to  d's  by  removing  m's,  s's,  and  o's. 

F0RM 

• Input-BCD-no  default.  If  F0RM  = M0DAL,  KDD  and  BDD  are  not  computed.  MDD  is 
not  computed  unless  M0DACC  ^ 0. 

G 

■ Input-real-default  = 0.0.  G is  the  coefficient  of  K4DD  if  TYPE  f TRANSIENT.  G/W3 
is  coefficient  of  KIDD  if  TYPE  = TRANSIENT. 

W3 

■ Input-real-default  = 0.0.  If  TYPE  = TRANSIENT  G/W3  is  the  coefficient  of  KIDD. 
If  W3  = 0.0  KIDD  is  not  used. 

W4 

■ Input-real-default  = 0.0.  1.0/W4  is  the  coefficient  of  K4DD  if  TYPE  = TRANSIENT. 
If  W4  = 0.0  K4DD  is  not  used. 

N0K2PP  • 

Input-integer-no  default.  N0K2PP  ^0  indicates  presence  of  K2PP. 

N0M2PP  • 

- Input-integer-no  default.  N0M2PP  ^ 0 indicates  presence  of  M2PP. 

N0B2PP  • 

- Input-integer-no  default.  N0B2PP  > 0 indicates  presence  of  B2PP. 

M.PCFl 

■ Input-integer-no  default.  MPCFl  >0  indicates  presence  of  GM. 

SINGLE  - 

■ Input-integer-no  default.  SINGLE  » 0 indicates  presence  of  single-point 
constraints. 

0MIT 

" Input-integer-no  default.  0MIT  ^0  indicates  presence  of  G0. 

N0UE 

■ Input-integer-no  default.  N0UE  »0  indicates  presence  of  extra  points. 

N0K4GG  ■ 

• Input-integer-no  default.  N0K4GG  2:0  indicates  presence  of  K4AA. 

N0BGG  - 

• Input-integer-no  default.  N0BGG-  0 indicates  presence  of  BAA. 

KDEKA  ■ 

• Input-integer-no  default.  KDEKA  2O  indicates  presence  of  MAA  and  KAA. 

M0DACC  ■ 

• Input-integer-default  = -1.  M0DACC  >0  requests  computation  of  MDD  (meaningful 
only  if  F0RM  = M0DAL) 
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4,58.7  Method 

If  extra  points  are  present  (M0UE^O)  and  multipoint  constraints  or  omitted  coordinates 
are  present  (MPCFl^O  or  0MIT^O),  then 

GM  =>  GMD,  (1) 


and 


G0  =>  G0D, 


(2) 


Subroutine  GKADIA  performs  these  tasks. 

If  direct  input  matrices  are  present  and  m's,  s's  or  o's  are  present,  the  direct  input 
matrices  are  reduced  from  the  p set  to  the  d set.  Let  [Dpp]  be  a direct  input  matrix, 


1 . If  m's  are  present. 


[dL]  = [mL]  or  [B^J 

P.P"'  pp-'*  pp-^  pp-^ 


=> 


r 

1 ^ 

nn 

nm 

r 

! 

mn 

1 mm  -1 

(3) 


(The  e coordinates  are  included  with  the  n coordinates).  Then  compute: 


[D^  ] = [D^  ] + [D^  1 [G^l  + [G°]‘  ] + [G^]‘  [D^  ] [G^l  . 

nn-^  nn-^  ^ nm-^  m*^  ^ m-*  mn-^  m-*  ^ mm-"  ^ m-*  * 


^dnT  rn2 


^dnT  rn2 


2.  If  s's  are  present. 


[»?,]  _> 


"ff  : “ft 

( 


— T > 


T 

^sf  ‘ 


ss. 


(5) 


n 

where  only  [D^^]  is  saved.  The  e coordinates  are  included  with  the  f coordinates. 
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2 

3.  If  o's  are  present,  first  partition  [D^^] 


t"ff]  -> 


I 

(6) 


then; 


[d2^]  [G^]  + [gJ]T  [D, 


J [D^ 

od-*  ‘"0-'  ^00 


] [sj]. 


(7) 


Steps  1 through  3 are  done  for  K2PP,  M2PP  and  B2PP,  using  subroutines  GKADIC  and  GKADID. 
If  F0RM  = H0DAL  and  M0DACC  < 0,  GKAD  is  done.  If  not,  the  a set  matrices  are  expanded  to 
the  d set  by  adding  zeros  at  extra  points.  Let  [Dgg]  be  an  a set  matrix.  Then, 


(8) 


The  above  step  is  done  for  KAA,  BAA,  MAA,  and  K4AA  and  is  performed  in  subroutine  GKAD1B. 
Compute  KDD,  BDD  and  MDD. 

1.  For  Frequency  Response  or  Complex  Eigenvalue  Analysis  (TYPE  ^ TRAN), 


[Kjj]  = (1+iG) 

* [‘Li  * ' • 

(9) 

t^ddl  = 

• 

(10) 

t^ddJ  = 

["id!  • • 

(11) 
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2.  For  Transient  Analysis  (TYPE  = TRAN), 

LKddJ  = [Kjd]  ^ [Kdd]  « (12) 

[Bdd]  = [Bjd]  + [Bdd]  + m LKjid]  " JiT  tKjJ]  . (13) 

[Mdd]  = [Mjd]  ^ [M^d^  • (1^) 

If  W3  or  W4  is  zero,  the  corresponding  matrices  are  ignored. 
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4.58.8  Subroutines 

GKAD  uses  matrix  utility  routines  SSG2B,  SSG2C,  CALCV,  MERGE,  UPART,  and  MPART.  Descrip- 
tions for  these  routines  can  be  found  in  Section  3. 

4.58.8.1  Subroutine  Name:  GKADIA 

1 . Entry  Point:  GKADIA 

2.  Purpose:  To  expand  GM  or  G0  to  d size  matrices: 


(15) 


3.  Calling  Sequence:  CALL  GKADIA  (USETD,G0,G0D.SCR1 ,UE,UA,UNE) 

USETD  - GIN0  file  number  of  USETD  - integer  - input. 


GIN0  file  number  of  G0  - integer  - input. 
GIN0  file  number  of  G0D  - integer  - input. 


SCRl 


GIN0  file  number  of  scratch  file  - integer  - input. 
Pointer  to  UE  bit  in  USETD  word  - integer  - input. 
Pointer  to  UA  bit  in  USETD  word  - integer  - input. 
Pointer  to  UNE  bit  in  USETD  word  - integer  - input. 


UE 


UA 


UNE 


4.58.8.2  Subroutine  Name:  GKADIB 


1.  Entry  Point:  GKADIB 


2.  Purpose:  To  expand  a set  matrices  to  d set  size. 


3.  Calling  Sequence:  CALL  GKADIB  (USETD, KAA,MAA, BAA, K4AA, KIDD, M1DD,B1DD,K41DD,UA, 

UE,UD,SCR1) 


USETD 


GIN0  file  number  of  USETD  - integer  - input. 


MAA 


BAA 


K4AA 


KAA 


GIN0  file  number  of  KAA  - integer  - input. 
GIN0  file  number  of  MAA  - integer  - input. 
GIN0  file  number  of  BAA  - integer  - input. 
GIN0  file  number  of  K4AA  - integer  - input. 
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4.58. 


4.58. 


4.58. 

Open 

4.58, 


KIDD 

M1DD 

BIDD 

K41DD 

SCRl 

UA 

UE 

UD 


- GIN0  file  number  of  KIDD  - integer  - input. 

- 6IN0  file  number  of  MIDD  - integer  - input. 

- GIN0  file  number  of  BIDD  - integer  - input. 

- GIN0  file  number  of  K41DD  - integer  - input. 

- GIN0  file  number  of  scratch  file  - integer  - input. 

- Pointer  to  UA  bit  in  USETD  word  - integer  - input. 

- Pointer  to  UE  bit  in  USETD  word  - integer  - input. 

- Pointer  to  UD  bit  in  USETD  word  - integer  - input. 


8.3  Subroutine  Name:  GKADIC 

1.  Entry  Point:  GKADIC 

2.  Purpose:  To  initialize  GKADID. 

3.  Calling  Sequence:  CALL  GKADIC  (GMD, G0D, SCRl ,SCR2,SCR3,SCR4, SCR5,SCR6, USETD) 

GMD,G0D, USETD  are  GIN0  file  numbers  of  their  respective  data  blocks  - integer  - input. 
SCRl ,. . . ,SCR6  are  GIN0  file  numbers  of  six  scratch  files  - integer  - input. 

8.4  Subroutine  Name:  GKADID 

1.  Entry  Point:  GKADID 

2.  Purpose:  To  reduce  "2PP“  matrices  to  “2DD“  matrices. 

3.  Calling  Sequence:  CALL  GKADID  (K2PP,K2DD) 

K2PP  - GIN0  file  number  of  input  matrix  - integer  - input. 

K2DD  - GIN0  file  number  of  reduced  matrix  - integer  - input. 


9 Design  Requirements 

Six  scratch  files  are  necessary.  Open  core  for  GKADIA  and  GKADIB  is  defined  at  /GKADAl/. 
core  for  GKADIC  and  GKADID  is  defined  at  /GKADCl/. 


10  Diagnostic  Messages 
None 
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4.59  FUNCTIONAL  MODULE  CEAD  (COMPLEX  EIGENVALUE  ANALYSIS  - DISPLACEMENT) 

4.59.1  Entry  Point:  CEAD 

4.59.2  Purpose 

To  solve  the  equation 

([M]p2  + [B]p  + [K]){u}  = {0}  (1 

for  the  eigenvalues  p and  the  associated  eigenvectors  {u}  where  [M],  [B]  and  [K]  are  mass, 
damping  and  stiffness  matrices  respectively. 

4.59.3  DMAP  Calling  Sequence 

CEAD  KDD,BDD,MDD,EED,CASECC/PHID,CLAMA,0CEIGS,PHIDL/V,N,NF0UND  $ 

4.59.4  Input  Data  Blocks 


KDD 

- Dynamic  stiffness  matrix  - d set 

BDD 

- Dynamic  damping  matrix  - d set. 

MDD 

- Dynamic  mass  matrix  - d set. 

EED 

- Eigenvalue  Extraction  Data. 

CASECC 

- Case  Control  Data  Table. 

Notes: 

1 . EED  must  be  present. 

2.  CASECC  must  be  absent  when  a substructure  modal  reduce  is  being  performed.  In 
other  cases  it  must  be  present. 

3.  At  least  one  of  KDD,  BDD  and  MDD  must  be  present. 

4.59.5  Output  Data  Blocks 

PHID  - Complex  eigenvectors  in  the  d set. 

CLAMA  - Complex  eigenvalue  table. 

0CEIGS  - Complex  eigenvalue  summary  table. 

PHIDL  - Left  complex  eigenvectors  in  the  d set. 
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Notes : 

1.  PHID,  CLAMA  and  0CEIGS  must  be  present. 

2.  PHIDL  may  be  purged  if  the  left-hand  vectors  are  not  desired. 

4.59.6  Parameters 

NF0UND  - Output-integer-no  default.  NF0UND  indicates  the  number  of  eigenvalues  found. 

If  none  were  found,  NF0UND  is  set  to  -1. 

4.59.7  Method 

The  Complex  Eigenvalue  Analysis  Module  calculates  the  eigenvalues  and  eigenvectors  for  a 
general  system  which  may  have  complex  terms  in  the  mass,  damping,  and  stiffness  matrices.  The 
eigenvectors  are  scaled  according  to  the  user-requested  normalization  scheme.  Modal  masses  are 
not  calculated  since  they  will,  in  general,  be  complex,  and  their  value  is  rather  dubious.  The 
form  of  the  problem  solved  by  the  Complex  Eigenvalue  Analysis  Module  is  given  in  Equation  1. 

The  eigenvalues  p and  the  eigenvectors  {u}  are  always  treated  as  complex.  These  data  are 
related  to  the  u^  displacements  if  a direct  formulation  is  used  or  are  related  to  the  u^  displace- 
ments if  a modal  formulation  is  used.  The  method  to  be  used  and  the  necessary  data  are  selected 
by  railing  for  one  ID  number  in  the  EED  data  block.  A set  of  EED  data  which  defined  either  the 
Determinant  Method,  the  Inverse  Power  Method,  the  Tridiagonal  Reduction  Method  or  the  Hessenburg 
Method  must  be  used.  Subroutine  CDETM,  CFEER,  CINVPR,  or  HESSl  is  called  to  solve  the  eigenvalue 
problem  (see  subroutine  descriptions  below  for  method  details.  The  eigenvalues  and  associated 
vectors  are  sorted  by  the  magnitude  of  the  imaginary  part  of  the  eigenvalue  with  all  positives 
listed  ahead  of  all  negatives,  (Subroutine  CEADIA). 

4.59.8  Subroutines 

The  subroutines  used  by  CEAD  can  be  divided  into  six  groups:  1)  those  used  by  CEAD;  2)  those 
used  for  the  Inverse  Power  Method;  3)  those  used  by  the  Determinant  Method;  4)  those  used  by  the 
Hessenburg  Method;  5)  those  used  by  the  Tridiagonal  Reduction  (FEER)  Method;  and  6)  general  utility 
routines.  The  descriptions  of  the  utility  routines  can  be  found  in  Section  3. 
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CEAD 

Determinant 

Hessenbero 

Inverse  Power 

FEER 

General 

CEAD1A 

CDETM 

ALLMAT 

CDIFBS 

CMTIMU 

CFCNTL 

CFEIMY 

ADD 

CLVEC 

CDETM2 

CFACTR 

CDIVID 

CN0RM 

CFEERl 

CFE2MY 

CDC0MP 

CDETM3 

CFBS0R 

CINFBS 

CN0RM1 

CFEER2 

CFl  FBS 

PREL0C 

CDTFBS 

HESSl 

CINVPR 

CSQRTX 

CFEER3 

CF2FBS 

CSQRTN 

HESS2 

CINVPl 

CSUB 

CFEER4 

CFN0R1 

CSUMM 

MERGED 

CINVP2 

CXTRNY 

CFER3D 

CFN0R2 

CINVP3 

0RTH0 

CFER3S 

CF10RT 

CFE1A0 

CFE2A0 

CF20RT 

.59.8.1 

Subroutine  Name: 

: CEADIA 

1. 

Entry  Point:  CEADIA 

2. 

Purpose:  To  sort  the  eigenvalues  and  the  right 

and  left  eigenvectors 

• 

3. 

Calling  Sequence: 

; CALL  CEADIA  (LAMAI , PHI  I , PHI IL ,LAMA0  ,PHI0,PHI0L ,NF0UND, NVECT , CAPP) 

LAMA I - GIN0  file 

number  of  unsorted 

eigenvalues 

- integer  - 

■ input. 

PHII 

- GIN0  file 

number  of  unsorted 

eigenvectors  - integer 

- input. 

PHIIL  - GIN0  file  number  of  unsorted  left  eigenvectors  (Inverse  Power  Method  only)  - 


integer  - input. 


LAMA0  - GIN0  file  number  of  data  block  CLAMA  - integer  - input. 

PHI0  - GIN0  file  number  of  data  block  PHID  - integer  - output. 

PHI0L  - GIN0  file  number  of  data  block  PHIDL  - integer  - output 

NF0UND  - Number  of  eigenvalues  found  - integer  - input. 

NVECT  - Number  of  eigenvectors  found  - integer  - input. 

CAPP  - Method  - BCD  - input. 


4.59.8.2  Subroutine  Name:  CINVPR 


1 . Entry  Point:  CINVPR 

2.  Purpose:  CINVPR  is  the  main  driver  for  the  Complex  Inverse  Power  Method  of  eigenvalue 

extraction. 

3.  Calling  Sequence:  CALL  CINVPR  (EED,METH0D,NF0UND) 

C0MM0N  / CINVPX  / K(7),M(7),B(7),LAM(7),PHI(7),EIGSUM,SCRFIL(11),N0REG,EPS,REG(7,1O),PHIDLI 
C0MM0N  / CINVX  / Z(l) 
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K,M,B 

- Input  matrix  control  blocks  for  the  stiffness,  mass,  and  damping  matrices 
(K],  [M],  and  [B]. 

LAM, PH I 

- Matrix  control  blocks  for  the  output  eigenvalue  and  eigenvector  files. 

EIGSUM 

- The  output  eigenvalue  summary  file. 

SCRFIL(ll) 

- Eleven  scratch  files  available  to  Inverse  Power 

N0REG 

- Number  of  regions  input  to  CINVPR. 

EPS 

- Convergence  criterion. 

REG(7,10) 

- Storage  space  for  up  to  10  region  parameters. 

PHIDLI 

- GIN0  file  number  of  unsorted  left  eigenvector  file. 

Z(l) 

- Open  core  for  CINVPR. 

4.59-3a  (12/29/78) 


FUNCTIONAL  MODULE  CEAD  (COMPLEX  EIGENVALUE  ANALYSIS  - DISPLACEMENT) 


3.  Calling  Sequence:  CALL  CINVP2 

C0MM0N  /CINVPX/  DUM(36),A.XX,L,U,SCR1,SCR2,SCR3,LL,UU 
C0MM0N  /C1NVXX/DUMM(4),. SWITCH 
C0MM0N  /CINV2X/Z(1) 

A - GIN0  file  number  for  the  input  matrix. 

L,U  - G1N0  file  number  for  the  lower  and  upper  triangular  factors  output 

from  CDC0MP. 

SCRl ,SCR2,SCR3  - Three  scratch  files  used  by  CDC0MP. 

- GIN0  file  numbers  for  alternate  storage  of  L and  U. 

10,  store  factors  on  L and  U. 

1,  store  factors  on  LL  and  UU. 

-204,  store  factors  on  LL  and  UU,  and  recompute  length  of  open  core. 
(Left-hand  eigenvector  calculations  only) 

- Area  of  open  core  used  by  CDC0MP. 


LL,UU 


SWITCH 


Z(l) 
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4.59.8.5  Subroutine  Name:  CINVP3 


1.  Entry  Point:  CINVP3 

2.  Purpose:  To  solve  for  a complex  eigenvalue  and  eigenvector  using  the  Inverse 

Power  Method. 

3.  Calling  Sequence:  CALL  CINVP3 

C0MM0N  /CINVPX/K(7)  ,M(7)  ,B{7)  ,L/J^{7)  ,PHI(7)  ,XXX,SCRFIL(11) 

C0MM0N  /CINV3X/Z(1) 

See  section  4.59.8.2  above  for  details  on  /CINVPX/. 

Z(l)  - Area  of  open  core  available  in  CINVP3. 

4.  Method:  The  logic  flow  and  the  mathematical  equations  are  essentially  identical 

to  INVP3,  with  the  following  exceptions.  The  eigenvalues  and  eigenvectors  are  found 
corresponding  to  the  matrix  equation 


(X^[M]  + X[B]  + [K])  [$]  = [0] 


(3) 


where  the  iteration  equation  is  given  by 


(X^[M]  + Xq[B]  + [K])  {W^}  = -([B]  + X^[M])  {u^_^}  -[M]  {v^_^} 


(4) 


with 


(5) 


(6) 


(7) 


{Vnl  = {v„}  - E a.  X^{$.). 


(8) 


and 


[X^[M]{u^>  t [M]  {V„)  + [B]  {u^>3 
(2X^  [M]  + [B])  {4.} 


(9) 
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where 

= Previously  extracted  right-hand  vector, 

= Previously  extracted  left-hand  vector, 

C^  = Largest  element  (in  magnitude)  of  {W^}  , and 
= Previously  extracted  eigenvalue. 

The  above  equations  replace  Equations  19  through  22  in  section  4.48.  The  calculation  of  the 
remaining  equations  remains  the  same  except  for  the  use  of  complex  arithmetic.  The  left 
eigenvector  is  obtained  by  decomposing  Equation  3 with  X^  - X^.  and  using  CDIFBS  to  make  the 
appropriate  substitution  using  the  factors  from  CDC0MP. 

5.  Design  Requirements:  CINVPS  requires  fourteen  complex  double  precision  vectors  in 

core  plus  four  GIN0  buffers. 

4.59.8.6  Subroutine  Name:  CN0RM 

1.  Entry  Point:  CN0RM 

2.  Purpose:  To  normalize  successive  iterated  vectors  such  that  the  maximum  element  is 

equal  to  unity,  and  to  return  the  normalizing  divisor. 

3.  Calling  Sequence:  CALL  CN0RM  (X,DIV) 

X - Input  vector  to  be  normalized. 

DIV  - Divisor  which  was  used  to  normalize  the  vector  corresponding  to  the 
argument  X. 

4.59.8.7  Subroutine  Name:  CN0RM1 

1.  Entry  Point:  CN0RM1 

2.  Purpose:  To  normalize  a complex  vector  such  that  the  largest  magnitude  of  an  element  is 

equal  to  one. 

3.  Calling  Sequence:  CALL  CN0RM  (X,N) 

X - Vector  to  be  normalized. 

N - Length  of  the  vector  (complex  terms). 
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4.59.8.8  Subroutine  Name:  CINFBS 

1.  Entry  Point:  CINFBS 

2.  Purpose:  To  perform  the  forward-backward  substitution  necessary  to  solve  an 

iteration  of  the  Inverse  Power  Method. 

3.  Calling  Sequence:  CALL  CINFBS  (X,Y,BUF) 

C0m0N  /CINFBX/L(7),U(7) 

L,U  - Matrix  control  blocks  for  the  factors  output  from  CDC0MP. 

X - Complex  double  precision  input  vector. 

Y - Complex  double  precision  solution  vector. 

BUF  - GIN0  buffer. 

4.  Method:  CINFBS  is  a stripped  down  version  of  GFBS.  Both  vectors  reside  in  core, 

and  only  complex  double  precision  arithmetic  is  used. 

4.59.8.9  Subroutine  Name:  CDIFBS 

1.  Entry  Point:  CDIFBS 

2.  Purpose:  To  perform  the  forward-backward  substitution  necessary  to  solve  for  the 

left  eigenvector. 

3.  Calling  Sequence:  CALL  CDIFBS  (X,BUF) 

C0MM0N  /CINVPX/DUM(41 ) ,UPRTRI ,XXX,L0WTRI 

UPRTRI,L0WTRI  - Files  containing  the  upper  and  lower  triangular  factors  output  from  CDC0MP. 

X - The  output  complex  double  precision  left  eigenvector. 

BUF-  GIN0  buffer  used  by  CDIFBS. 

4.  Method:  CDIFBS  actually  solves  the  system  of  equations 

[A]^  {X}  = {y},  (10) 

where  [A]  has  been  decomposed  into  [A]  = [L]  [U].  To  solve  the  transpose  problem  we  have 
that 
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[Af  = ([L]  [U])^  = [uf  af  (11) 

SO  that 

[uf  [Lf  {x}  = {y}.  (12) 

CDIFBS  1s  a modified  form  of  GFBS  which  does  the  forward  pass  on  [U]  and  the  backward 
pass  on  [L].  All  arithmetic  operations  are  complex  double  precision. 

4.59.8.10  Subroutine  Name:  CMTIMU 

1.  Entry  Point:  CMTIMU 

2.  Purpose:  To  pre-multiply  a vector  {y}  by  a matrix  to  obtain  a vector  {x}. 

3.  Calling  Sequence:  CALL  CMTIMU  (Y,X,FILE,BUF) 

C0MM0N  /CINVPX/DUM(7),M(7) 

FILE  - If  FILE  = 0,  form  {x}  = [M]{y}. 

FILE  ^ 0,  form  {x}  = [A]  {y},  where  [A]  is  the  matrix  on  FILE. 

X,Y  - Complex  double  precision  vectors. 

BUF  - GIN0  buffer. 

4.59.8.11  Subroutine  Name:  CXTRNY 

1.  Entry  Point:  CXTRNY 

2.  Purpose:  To  form  the  inner  product  of  two  complex  vectors,  {x}  and  {y} 

a = {x}"^  {y},  (13) 

where  {y}  denotes  a vector  all  of  whose  components  are  the  complex  conjugates  of  {y}. 

3.  Calling  Sequence:  CALL  CXTRNY  (X,Y,A) 

C0MM0N  /CINVPX/XX.N 

N - Length  of  the  vectors. 

X,Y  - Complex  double  precision  vectors. 

A - Complex  double  precision  value  of  the  inner  product  of  {x}  and  {y}. 
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4.59.8.12  Subroutine  Name:  CSUB 

1.  Entry  Point:  CSUB 

2.  Purpose:  To  evaluate  the  vector  equation 

{z}  = a{x}  - b{y},  (14) 

where  {x},  {y},  a and  b may  be  complex. 

3.  Calling  Sequence:  CALL  CSUB  (X,Y,Z,A,B) 

C0MM0N  /CINVPX/XXX.N 

N - Length  of  the  vectors  {x}  and  {y>. 

X, Y,Z  - Complex  double  precision  vectors. 

A,B  - Complex  double  precision  scalar  multipliers. 

4.59.8.13  Subroutine  Name:  0RTH0 

1.  Entry  Point:  0RTH0 

2.  Purpose:  To  orthogonalize  a vector  with  respect  to  all  previously  extracted  vectors. 

3.  Calling  Sequence:  CALL  0RTH0  (U.V.Xl ,X2,X3,X4,X5,NZ,BUF1 ,BUF2,BUF3,BUF4) 

C0MM0N  /CINVPX/K(7),M(7),B(7),LAMBDA(7),PHI(7),XXX,SCRFIL{10) 

C0MM0N  /CINVXX/DUM(19),NR00TS 

See  section  4.59.8.2  for  /CINVPX/  details. 

NR00TS  - Number  of  eigenvectors  already  extracted. 

U,V  - Input-current  vectors  - Output  - orthogonal! zed  vectors. 

XI, ...,X5-  Storage  space  for  five  complex  double  precision  vectors. 

NZ  - The  number  of  words  of  core  available  to  0RTH0. 

j-  Four  GIN0  buffers. 

BUF4  ' 

4.  Method;  0RTH0  solves  the  equations 

{Un>  = {u^}  - 2 {4^},  (15) 
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{V„}  = {v^}  - I X.  {$.}, 


where 

^^^}^[X^[M]  {u„>  + [M]  {v„>  + [B]  {u^}] 

X^[M]  + [B]]  {$^} 

and 

{T^-}  = Previously  found  left  eigenvectors. 

{$.}  = Previously  found  right  eigenvectors. 

X^  = Previously  found  eigenvalues. 

Note  that  the  demoninator  of  equation  17  is  constant  with  respect  to  the  current 
iterate  u^  and  v^.  Thus  it  is  computed  once  for  each  vector  and  saved  on  the  left  vector 
scratch  file  in  place  of  the  left  vector. 
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4.59.8.14  Subroutine  Name:  CDETM 

1.  Entry  Point:  CDETM 

2.  Purpose:  To  solve  the  complex  eigenvalue  problem  by  the  Determinant  Method. 

3.  Calling  Sequence:  CALL  CDETM  (METH0D,EED,M,B,K,LAMA,PHID,0CEIGS,NF0UND,SCR1 ,SCR2, 

SCR3 ,SCR4,SCR5 ,SCR6 ,SCR7 ,SCR8) 

ID  of  an  EIGC  card  for  the  Determinant  Method  - integer  - input. 

GIN0  file  numbers  of  their  respective  data  blocks  - integer  - input. 

GIN0  file  number  of  temporary  eigenvalue  storage  file  - integer  - input. 

GIN0  file  number  of  temporary  eigenvector  storage  file  - integer  - input. 
Number  of  eigenvalues  found  - integer  - output. 

GIN0  file  numbers  of  8 scratch  files  - integer  - input. 

4.  Method:  The  overall  flow  and  theoretical  considerations  of  the  Determinant  Method 

are  explained  in  section  4.88.  Two  refinements  are  made  in  CDETM.  The  first  is  the 
handling  of  multiple  search  regions,  which  allows  the  user  to  control  the  distribution  of 
starting  points  in  the  complex  plane.  See  the  EIGC  bulk  data  card  description  in  section 

2 of  the  User's  Manual  for  further  details.  The  second  is  the  use  of  the  EIGP  card  to  define 
poles  which  will  be  swept  from  the  determinant  as  if  they  were  previously  accepted 
eigenvalues.  This  allows  the  user  to  prevent  convergence  to  known  or  already  extracted 
eigenvalues. 

5.  Design  Requirements:  CDETM  requires  two  complex  double  precision  d set  vectors  plus 

one  GIN0  buffer  in  core. 

4.59.8.15  Subroutine  Name:  CDETM2 

1.  Entry  Point:  CDETM2 

2.  Purpose:  To  arrange  3 starting  points  in  order  of  the  magnitude  of  the  determinant, 

3.  Calling  Sequence:  CALL  CDETM2(P,D,IP,PR,PI,DR,DI,IPS) 

P - Three  starting  point  values  - input-complex  double  precision. 


METH0D 

EED.0CEIGS, 
M,B,K 

LAMA 

PHID 

NF0UND 

SCR1.SCR2,  ) 
....SCR8  ) 
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D - Scaled  determinants  at  P - input-complex  double  precision. 

IP  - Scale  factors  for  D - input  - integer. 

PR  - Real  parts  of  the  reordered  starting  points  - output-double  precision. 

PI  - Imaginary  parts  of  the  reordered  starting  points  - output-double  precision. 
DR  - Real  parts  of  the  reordered  determinants  - output-double  precision. 

DI  - Imaginary  parts  of  the  reordered  determinants  - output-double  precision. 

IPS  - Scale  factors  of  the  reordered  determinants  - output  - integer. 

4.59.8.16  Subroutine  Name:  CSUMM 


1.  Entry  Point:  CSUMM 

2.  Purpose:  To  add  two  scaled  complex  numbers  together. 

3.  Calling  Sequence:  CALL  CSUMM  (Dl ,D2,ID1 ,D3,D4,ID2, D5, 06, ID3) 

The  arguments  are  defined  in  the  following  equation: 

(01. D2)  X 10^“^^  + (03,04)  X 10^°^  = (05,06)  x 10^°^, 

where  all  Di‘s  are  double  precision. 

4.59.8.17  Subroutine  Name:  CDTFBS 


1.  Entry  Point:  CDTFBS 

2.  Purpose:  To  solve  for  the  eigenvector  given  the  decomposed  impedance  matrix. 

3.  Calling  Sequence:  CALL  CDTFBS  (F,EV,BUFFER(1 ) ,FU,NR0W) 

F - Applied  complex  load  vector  - input-complex  double  precision. 

EV  - Eigenvector  - output-  complex  double  precision. 

BUFFER(l)  - GIN0  buffer. 

FU  - Matrix  control  block  for  [U]  - integer  - input. 

NR0W  - Order  of  problem  - integer  - input. 
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4.59.8.18  Subroutine  Name:  CDETM3 

1.  Entry  Point:  CDETM3 

2.  Purpose:  To  rescale  a scaled  complex  number. 

3.  Calling  Sequence:  CALL  CDETM3(D1 ,D2,ID1) 

Let  Dl,  D2,  IDl  be  the  input  values  of  D1 , 02,  IDl.  On  return  from  CDETM3 

(D1,D2)  X 10^°^  = (DT.M')  X lo”^  , (20) 

and 

1.0  < |(D1,D2)|  < 10.0  , (21) 

where  all  Di's  are  double  precision. 

4.59.8.19  Subroutine  Name:  CDIVID 

1.  Entry  Point:  CDIVID 

2.  Purpose:  To  divide  a complex  vector  by  a comolex  number. 

3.  Calling  Sequence:  CALL  CDIVID  (DIV,V,V1 ,NV) 

where  V is  a complex  D.P.  vector  of  length  NV  to  be  divided  by  DIV  and  the  answer  put 
in  VI. 

4.59.8.20  Subroutine  Name:  HESSl 

1.  Entry  Point:  HESSl 

2.  Purpose:  HESSl  is  the  overall  driver  for  the  upper  Hessenburg  method  of  complex  eigenvalue 

extraction.  CEAD  will  call  HESSl  if  sufficient  core  exists  (6N^  + 8N)  to  use  this  method  where 

N is  the  order  of  the  reduced  problem.  Otherwise  it  will  select  complex  inverse  power.  If  the 

B matrix  is  not  null  N = 2*N. 

3.  Calling  Sequence:  CALL  HESSl  (KDD,MDD,CLAMA,PHID,0CEIGS,NF0UND,NVECD,BDD,SCR1 , 

SCR2 ,SCR3 ,SCR4 ,SCR5 ,SCR6 ,SCR7 ,EED,METH0D) 


4.59-14  (7/4/76) 


FUNCTIONAL  WDULE  CEAD  (COMPLEX  EIGENVALUE  ANALYSIS  - DISPLACEMENT) 


where 

KDD,MDD,CLAMA,PHID,0CEIGS,BDD,SCR1-7,  and  EED  are  the  GIN0  file  numbers  of  their 
respective  data  blocks. 

NF0UND  - integer-output-NF0UND  is  the  number  of  eigenvalues  found. 

NVECD  - integer-output-NVECD  is  the  number  of  eigenvalues  output. 

METH0D  - integer-input-METH0D  is  the  EIGC  Id  selected  in  CASECC  by  the  CMETH0D  card. 

4.  Method:  HESSl  transforms  the  eigenvalue  problem  [P^ [MOD]  + P[BDD]  + [KDD]]  = {0]into 

[k^  I + = {0}  according  to  the  following  procedures: 

If  BDD  = 0 

[A]  = [MDD]*"^  [KDD] 

P = Vk^  (with  positive  Im) 


If  BDD  ^ 0 


*^D1 


0 

-I 

MDD*'  KDD 

MDD"^  BDD 

‘ = 1 

1»D  j 

i 

! 0 i 

MDD  must  be  non-singular  and  a special  case  exists  if  MDD  is  the  identity  (Form  = 8). 
The  [A]  matrix  is  put  into  core  and  subroutine  ALLMAT  is  called. 


5.  Subroutines  Called:  CFBS0R, MERGED, CFACT0R, ALLMAT , and  HESS2 

6.  Design  Requirements: 

1.  Open  core  must  be  available  at  /HESSl X/ 

2.  All  computations  are  done  single  precision. 

4.59.8.21  Subroutine  Name:  HESS2 

1.  Entry  Point:  HESS2 
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2.  Purpose:  To  form  an  NR0W  X NR0W  identity  matrix  and  a proper  partitioning  vector  to 

insert  this  identity  matrix  in  a larger  matrix. 

3.  Calling  Sequence:  CALL  HESS2  (NR0W,IDEN,IVP) 

whe  re : 

NR0W  is  the  order  of  the  identity  matrix  to  be  written  on  IDEN 

IDEN  - GIN0  file  number  of  the  Identity  matrix 

IVP  - GIN0  file  number  of  the  partitioning  vector,  {lPV[  = 


1.0  1 

1 

i 

[ NR0W 

6 

NR0W 

6 

y 

4.59.8.22  Subroutine  Name:  MERGED 

1.  Entry  Point:  MERGED 


2.  Purpose:  To  set  up  and  call  the  matrix  utility  routine  MERGE  to  perform  the  following 

merge 


-RP- 


jcp; 

All 

A12 

A21 

A22 

3.  Calling  Sequence: 

CALL  MERGED  (All ,A12,A21 , 

,A22,A.RP 

=> 


[A] 


where : 

All,  A12,  A21 , A22,  A,  RP,  and  CP  are  the  GIN0  file  numbers  of  their  respective  data 
blocks.  If  any  partition  does  not  exist  its  GIN0  file  number  should  be  0.  All  input 
data  blocks  should  have  matrix  trailers.  RP  or  CP  may  be  0.  N1  and  N2  are  the  orders 
of  RP  and  CP  if  either  is  zero. 


4.  Method:  MERGED  sets  up  /PARMEG/  and  calls  MERGE.  It  also  writes  trailer  on  A. 

5.  Design  Requirements:  Open  core  exists  at  /MRGEDX/ 
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4.59.8.23  Subroutine  Name:  CFACTR 

1.  Entry  Point:  CFACTR 

2.  Purpose:  CFACTR  will  decompose  a complex  matrix  A into  its  two  factors  LLL  and  ULL. 

3.  Calling  Sequence:  CALL  CFACTR  (A,LLL,ULL,SCR1 ,SCR2,SCR3,I0PT) 

where: 

A,  LLL,  ULL,  SCRl , SCR2,  and  SCR3  are  the  GIN0  file  numbers  of  their  respective  data 
blocks. 

I0PT  is  output  according  to  the  following  table: 


Decomp  Method  I0PT 

CSSP  4 
CSDP  2 
CUSP  1 


4.  Method:  The  various  decomposition  methods  are  chosen  based  on  /SYSTEM/(55)  and  the  tailer 

of  A.  CFACTR  will  write  a trailer  on  the  factors. 

5.  Subroutines  Called:  CFACTR  may  call  SCDCMP,  CSPSDC,  or  CDC0MP. 

6.  Design  Requirements:  Open  core  must  be  at  /CFACTX/ 

4.59.8.24  Subroutine  Name:  CFBS0R 

1.  Entry  Point:  CFBS0R 

2.  Purpose:  The  purpose  of  CFBS0R  is  to  solve  the  complex  matrix  equation  [A][X]  = [B]  given 

the  factors  of  [A]  = [LLL][ULL]. 

3.  Calling  Sequence:  CALL  CFBS0R  (LLL,ULL,B,X,I0PT) 

where: 

LLL, ULL,  B and  X are  the  GIN0  file  names  of  their  respective  matrices. 

I0PT  is  an  input  parameter  set  by  CFACTR  (See  Section  4.59.8.24). 

4.  Method:  The  trailers  of  [LLL],  [ULL]  and  [B]  are  used  to  prepare  for  FBS.  A trailer  is 
written  on  [X]. 

5.  Subroutines  Called:  CXFBS  or  GFBS  may  be  called  based  on  I0PT. 

6.  Design  Requirements:  Open  core  at  /CFBSRX/. 
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4.59.8.25  Subroutine  Name:  ALLMAT 

1.  Entry  Point:  ALLMAT 

2.  Purpose:  The  purpose  of  ALLMAT  is  to  compute  the  eigenvalues  (All)  and  eigenvectors 

(number  requested)  of  an  arbitrary  complex  matrix  by  use  of  the  QR  algorithm  and  the  Wielandt 
inverse  power  method  for  vectors.  This  is  essentially  the  routine  distributed  via  SHARE  as 
SDA  3441. 

3.  Calling  Sequence:  CALL  ALLMAT  (A,LAMBDA,H,HL,VECT,MULT,INTH,M,NCAL,I0PT1 ) 

where : 

A - is  the  M X M complex  input  matrix.  On  return  A contains  the  complex  eigenvectors. 

LAMBDA  - is  a complex  list  of  eigenvalues. 

H - is  a complex  M X M working  array. 

HL  - is  a complex  M X M working  array 

VECT  - is  a complex  M order  array 

MULT  - is  a complex  M order  array 

INTH  and  INT  are  real  M order  arrays 
M - is  the  problem  order. 

NCAL  - is  the  number  of  eigenvectors  to  compute. 

I0PT1  - is  not  used. 

4.  Method:  The  input  matrix  A is  reduced  to  an  upper  Hessenberg  matrix,  H,  by  a sequence 

of  elementary  triangular  and  permutation  matrices  which  make  up  a matrix  P such  that  P^^AP  = H. 
The  QR  algorithm  is  made  use  of  in  ALLMAT  by  applying  unitary  similarity  transformations  to 
Hessenberg  matrices,  H^.:  = P’''aP.  where  0^ 

is  the  product  of  plane  rotations,  chosen  so  that  T^  is  upper  triangular.  This  process  makes 

h^  converge  to  zero  and  therefore  h^^^  converges  to  an  eigenvalue  of  A.  When  convergence 

is  met  (h^^^  , negligible)  the  Hessenberg  matrix,  H , is  delfated  (i.e.,  last  row  and 
n , n “ I s 

column  eliminated)  and  ALLMAT  proceeds  with  its  leading  principal  submatrix  (a  new  H^) 
of  order  one  less.  If  h^^|  « becomes  negligible,  the  eigenvalues  of  the  lower  right  hand 

matrix  of  order  two  are  calculated  and  ALLMAT  proceeds  with  the  leading  principal  matrix  of 
order  two  less.  It  can  be  shown  that  convergence  is  accelerated  by  judiciously  subtracting 
scalar  matrices  from  the  matrices.  ALLMAT  actually  replaces  by  - k^I  such  that 
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is  one  of  the  eigenvalues  or  of  the  lower  right  hand  2x2  matrix  of  The  choice 

of  or  is  made  on  the  basis  of  whether  |h^^^  - p I or  |h^^^  - q I is  a minimum.  The 
s ^s  ' nn  ^s ' ' nn  ^s ' 

shift  technique  is  applied  at  each  iteration. 

Two  passes  of  the  Wielandt  inverse  power  method  are  used  to  calculate  the  eigenvectors, 

, of  H.  Very  little  work  is  required  for  the  second  pass  since  the  necessary  elementary 
triangular  and  permutation  matrices  are  stored  in  MULT  and  INTH  (storage  areas  internal  to 
ALLMAT).  Finally,  the  eigenvectors  of  A,  Py^. , are  calculated.  The  matrix  P resides  in  INT 
and  the  lower  part  of  H (INT  and  H are  internal  to  ALLMAT). 

References : The  theory  and  a complete  description  of  the  algorithms  appear  in  the  first 

reference . 

(1)  J.  H.  Wilkinson  (1965):  The  Algebraic  Eigenvalue  Problem,  Oxford. 

(2)  A.  S.  Householder  (1964):  The  Theory  of  Matrices  in  Numerical  Analysis,  Blaisdell. 

Authors 

R.  E.  Punderlic,  J.  Rinzol,  Scientific  Programming  Department,  Central  Data  Processing 
Facility,  Union  Carbide  Corporation,  Nuclear  Division,  ORGDP,  Oak  Ridge,  Tennessee. 

5.  Design  requirements:  The  eigenvalues  of  A are  not  necessarily  calculated  in  any  absolute 

algebraic  order. 

Ten  iterations  per  eigenvalue  are  allowed  and  examples  exist  for  which  convergence  will 
not  occur  in  ALLMAT  (e.g.,  most  lower  triangular  matrices  with  all  equal  eigenvalues;  a 
matrix  with  ones  on  the  lower  diagonal,  one  as  the  N^^  component  of  the  first  row  and  zeros 
elsewhere).  In  the  case  of  non-convergence,  ALLMAT  will  return  a value  for  NCAL  less  than 
N and  it  is  suggested  that  the  user  experiment  with  arbitrary  shifts  of  the  input  matrix 
(i.e.,  add  a constant  to  the  diagonal  of  A)  which  will  sometimes  eliminate  the  difficulty 
(e.g.,  second  example  just  stated). 

If  overflows  or  detrimental  underflows  occur,  scaling  A such  that  its  largest  element 
is  in  modulus  about  one  will  probably  eliminate  the  difficulty. 

The  accuracy  obtaining  in  computing  the  eigenvalues  of  A,  X^(A),  is  usually  related  to 
the  spectral  radius,  p(A),  of  the  matrix  A or  more  generally  to  some  norm  of  A times  the  norm 
of  its  inverse.  Hence  the  greater  p(A)/min|X^.  | the  fewer  significant  digits  the  smaller 
eigenvalues  may  have.  Accuracy  also  decreases  as  the  order  of  the  matrix  increases.  Close 
eigenvalues  are  usually  calculated  with  less  accuracy  than  well  separated  ones.  In  most 
cases  ALLMAT  has  yielded  roots  and  vectors  accurate  to  about  six  significant  digits. 
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4.59.8.26  Subroutine  Name:  CFCNTL 

1.  Entry  Point:  CFCNTL 

2.  Purpose:  CFCNTL  is  the  main  driver  for  the  complex  version  of  the  Tridiagonal  Reduction 

(FEER)  method. 

3.  Calling  Sequence:  CALL  CFCNTL  (EED,METH0D,NF0UND) 


EED 

- 6IN0  file  number  for  file  containing  EIGC  information  (Integer,  input). 

METH0D 

- Eigenvalue  extraction  method  'PEER'  (Hollerith,  input). 

NF0UND 

- Accumulated  number  of  acceptable  eigensolutions  (Integer,  output). 

C0MM0N/FEERAA/IK(7),IM(7),IB(7),ILAM(7),IPHI(7),IDMPFL,ISCR(11),REG(7,1O),MCBLT(7),MCBUT(7), 

MCBVEC(7),MCBLMB(7) 


IK,IM,IB 

- Matrix  control  blocks  for  the  input  stiffness,  mass  and  damping  matrices, 
respectively. 

ILAM,IPHI 

- Matrix  control  blocks  for  the  output  eigenvalue  and  eigenvector  files. 

IDMPFL 

- GIN0  file  number  for  the  eigenvalue  summary  file  (integer). 

ISCR 

- GIN0  file  numbers  for  eleven  scratch  files  (integer). 

REG 

- Array  of  information  obtained  from  the  EIGC  bulk  data  card  and  continuation 
cards. 

MCBLT 

- Lower  triangular  matrix,  [L],  control  block. 

MCBUT 

- Upper  triangular  matrix,  [U],  control  block. 

MCBVEC 

- Orthogonal  vector  file  control  block. 

MCBLMB 

- Matrix  control  block  for  A^[M]  + [B]. 

C0MM0N/FEERXC/LAMBDA(2),SYMMET,MREDUC,N0RD,IDIAG,EPS,N0RTH0,N0RD2,N0RD4,N0RDP1,NSWP,JSKIP, 

N0B,IT,TEN2MT.TENMHT,NSTART,QPR,JREG,N0REG,NZER0,TENMTT,MIN0PN,NUM0RT,NUMRAN 


LAMBDA 

- Point  of  interest  (i.e.,  center  of  neighborhood)  in  the  complex  plane 
(double  precision). 

SYMMET 

- Indicator  for  symmetric  dynamic  matrix  (logical). 

MREDUC 

- Size  of  the  reduced  problem  (set  internally). 

N0RD 

- Problem  size  (set  internally  using  the  dimension  of  the  stiffness  matrix). 

IDIAG 

- DIAG  12  output  indicator  (set  internally). 

EPS 

- The  user  specified  (or  default)  desired  theoretical  accuracy  of  the  eigenvalues 
expressed  as  a percentage  (double  precision). 
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N0RTH0 

- Number  of  orthogonal  vectors  in  present  set  (includes  previously  computed 
vectors). 

N0RD2 

- 2 X N0RD. 

N0RD4 

- 4 X N0RD. 

N0RDP1 

- N0RD  + 1. 

NSWP 

- Vector  size  for  sweep  algorithm. 

JSKIP 

- CFEER4  logic  bypass  indicator. 

N0B 

- Indicator  for  absence  of  damping  matrix  [B]  (logical). 

IT 

- Number  of  decimal  digits  of  accuracy,  t,  for  the  computer. 

TEN2KT 

2-t 

- 10  , where  t is  defined  by  IT;  reorthogonalization  accuracy  criterion. 

TENMHT 

-t/2 

- 10  ' , where  t is  defined  by  IT;  accuracy  criterion  for  disjoint  tridiag- 

onal matrix. 

NSTART 

- Number  of  initial  reorthogonalization  attempts  (for  the  current  point  of 
interest). 

QPR 

- Indicator  for  very  detailed  printout  (logical). 

JREG 

- Number  (positive  integer)  of  the  current  neighborhood. 

N0REG 

- Total  number  of  neighborhoods,  or  points  of  interest,  in  the  complex  plane, 
to  be  processed. 

NZER0 

- Number  of  previously  obtained  eigenvectors. 

TENm-T 

-t/3 

- 10  , where  t is  defined  by  IT;  rigid  body  root  criterion. 

MIN0PN 

- Minimum  open  core  not  used  by  the  complex  FEER  process,  in  single  precision 
words. 

NUM0RT 

- Total  number  of  reorthogonal izations  of  all  the  trial  vectors  employed. 

NUMRAN 

- Total  number  of  random  starting  and  restart  vectors  used  by  the  complex  FEER 
process  for  all  neighborhoods. 

C0MM0N/FEERZC/ZO) 

Z - Area  of  open  core  used  by  CFCNTL. 

4.  Design  Requirements:  The  complex  Feer  method  requires  sufficient  core  for  three  GIN0 

buffers  and  five  pairs  of  (complex)  vectors  of  size  N0RD  (2xN0RD  when  N0B=FALSE).  The  method 
can  be  performed  in  single  or  double  precision. 
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5.  Subroutine  Glossary  for  the  complex  PEER  method. 


CFCNTL 

CFEERl 

CFEER2 

CFEER3 

CFEER4 

CFER3S,CFER3D 

CFE1A0,CFE2A0 

CFE1MY,CFE2MY 

CF1FBS,CF2FBS 

CFN0R1,CFN0R2 

CF10RT,CF20RT 


Single  and  double  precision  versions. 


4.59.8.27  Subroutine  Name:  CFEERl 

1.  Entry  Point:  CFEERl 

2.  Purpose:  To  set  up  the  call  to  SADD  to  form  the  dynamic  matrix 


[D]  = X^[M]  H-  X^[B]  + [K] 


and  also  the  sub-factor  of  the  dynamic  matrix. 


[S]  = A^[M]  + [B] 


3.  Calling  Sequence:  CALL  CFEERl 

C0MM0N/FEERAA/ 

C0MM0N/FEERXC/ 

See  CFCNTL  for  a description  of  /FEERAA/  and  /FEERXC/  (Section  4.59.8.26) 
C0MM0N/FEERZ1/Z(2) 

Z - Area  of  open  core  used  by  CFEERl . 

4.  Design  Requirements:  CFEERl  can  perform  single  or  double  precision  operations. 

4.59.8.28  Subroutine  Name:  CFEER2 

1.  Entry  Point:  CFEER2 
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2.  Purpose:  To  set  up  the  call  to  CDC0MP  to  decompose  the  dynamic  matrix 

[D]  = [L][U] 

3.  Calling  Sequence:  CALL  CFEER2  (IRET) 

IRET  - Singularity  indicator  (output). 

C0MM0N/FEERAA/ 

C0MM0N/FEERXC/ 

See  CFCNTL  for  a description  of  /FEERAA/  and  /FEERXC/  (Section  4.59.8.26). 

C0MM0N/FEERZ2/Z(2) 

Z - Area  of  open  core  used  by  CFEER2. 

4.59.8.29  Subroutine  Name:  CFEER3 

1.  Entry  Point:  CFEER3 

2.  Purpose:  CFEER3  is  the  basic  driver  routine  which  obtains  the  reduced  tridiagonal 

matrix  for  the  complex  FEER  method  of  eigenvalue  extraction. 

3.  Calling  Sequence:  CALL  CFEER3 

C0MM0N/ FEERAA/ 

C0MM0N/ FEERXC/ 

See  CFCNTL  for  a description  of  /FEERAA/  and  /FEERXC/  (Section  4.59.8.26). 

C0MM0N/FEERZ3/Z(2) 

Z - Area  of  open  core  used  by  CFEER3. 

4.  Design  Requirements:  CFEER3  can  perform  single  or  double  precision  operations. 

4.59.8.30  Subroutine  Name:  CFEER4 

1.  Entry  Point:  CFEER4 

2.  Purpose:  CFEER4  obtains  the  physical  eigenvalues  and  eigenvectors  of  the  reduced  prob- 

lem (for  the  current  point  of  interest)  by  feeding  the  reduced  tridiagonal  matrix  to  sub- 
routine ALLf'IAT.  In  addition,  CFEER4  sorts  the  eigenvalues  according  to  increasing  distance 
from  the  center  of  interest,  and  determines  which  eigensolutions  are  acceptable  and  which  are 
not  (according  to  the  default  or  user-input  accuracy  criterion). 
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3.  Calling  Sequence:  CALL  CFEER4 

C0MM0N/FEERAA/ 

C0MM0N/FEERXC/ 

See  CFCNTL  for  a description  of  /FEERAA/  and  /FEERXC/  (Section  4.59.8.26). 
C0MM0N/FEERZ4/Z(2) 

Z - Area  of  open  core  used  by  CFEER4. 

4.  Design  Requirements:  CFEER4  performs  only  single  precision  operations. 


4. 59.8. 31  Subroutines  CFER3S,CFER3D 


1.  Entry  Points:  CFER3S  (single  precision),  CFER3D  (double  precision). 

2.  Purpose:  To  perform  the  tri diagonal  reduction  algorithm  for  CFEER3. 

3.  Calling  Sequence:  CALL  CFER3S(V1 ,V1L,V2,V2L,V3,V3L,V4,V4L,V5,V5L,ZB,ZC) 

CALL  CFER3D  (same  arguments  as  for  CFER3s). 


V1,V1L  ) 

V2,V2L  / Working  space  for  five  pairs  of  vectors,  where  a vector 

V3,V3L  ) - pair  consists  of  a right-hand  vector  (e.g.,  VI)  and  a 

V4,V4L  I left-hand  vector  (e.g.,  VIL). 

V5,V5L  j 


ZB,ZC  - Working  space  for  two  GIN0  buffers 

C0MM0N/ FEERAA/ 

C0MM0N/ FEERXC/ 


See  CFCNTL  for  a description  of  /FEERAA/  and  /FEERXC/  (Section  4.59.8.26). 


4.  Design  Requirements:  CFER3S  and  CFER3D  are  driven  by  the  CFEER3  subprogram,  which  performs 
the  necessary  initialization  and  termination  process.  CFEER3  invokes  either  CFER3S  or  CFER3D 
according  to  the  precision  of  the  required  input  files.  All  vectors  are  dimensioned  consis- 
tent with  the  initial  problem  size  (N0RD2  when  N0B=TRUE  and  N0RD4  otherwise).  In  addition, 
each  left-hand  vector  must  immediately  follow  its  corresponding  right-hand  vector  in  core, 
since  this  configuration  results  in  more  streamlined  coding  and  associated  quicker  execution. 


4.59.8.32  Subroutines  CFE1A0,CFE2A0 

1.  Entry  Point:  CFE1A0  (single  precision),  CFE2A0  (double  precision). 
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2.  Purpose:  To  perform  the  eigenmatrix  multiplication  operation. 


3.  Calling  Sequence:  CALL  rcplfla  (TP0SE.V1 ,V2,V3,ZB) 


CFE2A0 


Single  and  double 
precision  versions 


ZB 


TP0SE 


V3 


VI 


V2 


Indicator  for  transpose  operation  (logical). 
Input  vector. 

Output  vector. 

Working  space  for  one  vector. 

Working  space  for  one  GIN0  buffer. 


C0MM0N/FEERAA/ 

C0MM0N/FEERXC/ 

See  CFCNTL  for  a description  /FEERAA/  and  /FEERXC/  (Section  4.59.8.26) 

4.  Design  Requirements:  All  vectors  are  of  dimension  consistent  with  the  initial  problem 
size  (see  Section  4.59.8.31). 

4. 59 . 8. 33  Subrouti nes  CFEl MY , CFE2MY 

1.  Entry  Points:  CFEIMY  (single  precision),  CFE2MY  (double  precision). 

2.  Purpose:  To  perform  the  standard  matrix-times-vector  multiply  function.  The  operation 

is 


{X}  = [M]{Y> 


or 


(X)  = [M]''’{Y} 


3.  Calling  Sequence:  CALL 


CFEIMY 

CFE2MY 


(TP0SE,Y,X,FILE,BUF). 
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TP0SE 

Y 


X 

FILE(7) 

BUF 


- Indicator  for  transpose  operation  (logical). 

- Input  vector 

- Output  vector. 

- Input  matrix  control  block  for  the  required  matrix  (integer). 

- Working  space  for  one  GIN0  buffer. 


4.  Design  Requirements:  All  vectors  are  of  dimension  consistent  with  the  initial  problem 

size. 


4.59. 8. 34  Subroutines  CFl FBS,CF2FBS 

1.  Entry  Point:  CFIFBS  (single  precision),  CF2FBS  (double  precision). 

2.  Purpose:  To  perform  the  operational  inverse  algorithm  (forward  and  backward  sweeps). 

The  operation  is 


{X}  ^ [L][U]  {X} 
or 

{X}  - [uf[Lf{X} 

3.  Ctims  sequence:  CALL  (tpke,x0UT.I0BUF) 

TP0SE  - Indicator  for  transpose  operation  (logical). 

X0UT  - Input  vector,  which  gets  transformed  to  the  output  vector. 

I0BUF  - Working  space  for  one  GIN0  buffer. 

C0MM0N/FEERAA/ 

C0MM0N/FEERXC/ 

See  CFCNTL  for  a description  of  /FEERAA/  and  /FEERXC/  (Section  4.59.8.26). 

4.  Design  Requirments:  CFIFBS  and  CF2FBS  use  the  direct  output  of  the  CDC0MP  subprogram. 

The  vector  is  dimensioned  consistent  with  half  of  the  initial  problem  size  when  the  damping 
matrix  is  present,  and  consistent  with  the  initial  problem  size  when  the  damping  matrix  is 
absent. 


4.59.8.35  Subroutines  CFN0R1 ,CFN0R2 

1.  Entry  Point:  CFN0R1  (single  precision),  CFN0R2  (double  precision). 
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2.  Purpose:  To  normalize  a pair  of  (right-hand  and  left-hand)  complex  vectors  to  magnitude 

unity.  The  operation  is 


6 = 

{V}  = {W} 

{V}  = 1 {B} 

where  the  bar  denotes  a left-hand  vector. 

3.  Calling  Sequence:  CALL  ,LEFT  ,SIZE2  ,0PTI0N , RI ) 


Single  and  double 
precision  versions 


RIGHT 

LEFT 

SIZE2 

0PTI0N 


RI 


Input  right-hand  complex  vector,  which  gets  transformed  to  the  output 
right-hand  vector  when  0PTI0N  = 0. 

- Input  left-hand  complex  vector,  which  gets  transformed  to  the  output  left- 
hand  vector  when  0PTI0N  = 0. 

- Length  of  either  vector  in  computer  words  (integer). 

- Selects  the  desired  option,  as  follows: 

(0)  Normalize  the  input  vectors,  and  output  the  square  root  of  the  inner 
product  in  RI. 

(1)  Only  output  the  inner  product,  in  RI. 

(2)  Only  output  the  square  root  of  the  inner  product,  in  RI. 

- Inner  product,  or  square  root  of  the  inner  product,  or  the  input  factors 
(output;  see  0PTI0N) . 


C0MM0N/FEERXC/ 


See  CFCNTL  for  a description  of  /FEERCX/  (Section  4.59.8.26). 


4. 59.8.36  Subroutines  CF10RT,CF20RT 

1.  Entry  Point:  CF10RT  (single  precision),  CF20RT  (double  precision) 

2.  Purpose:  To  perform  the  reorthogonal ization  algorithm. 

3.  Calling  Sequence:  CALL  qp20r|  (SUCESS,MAXITS,TEN2MT,NZER0,I0RTH0,VR,VL.VL,V1L,V2.V2L,ZB) 

SUCESS  - Output  indicator  for  successful  reorthogonal ization  (logical). 

MAXITS  - Input  maximum  allowed  number  of  reorthogonal ization  iterations  (integer). 
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TEN2MT 


NZER0 


VR,VL 


I0RTH0 


Convergence  tolerance  (input). 

Number  of  orthogonal  vector-pairs  (right  and  left  hand)  from  restart  and 
prior  neighborhoods  (input). 

Number  of  orthogonal  vector-pairs  previously  computed  in  the  current 
neighborhood  (input). 

Input  (and  transformed  for  output)  right  and  left  hand  vectors,  respectively, 
which  are  to  be  reorthogonal ized  with  respect  to  all  pairs  of  previously  com- 
puted orthogonal  vectors. 


V1,V1L 

V2,V2L 


Working  space  for  four  vectors. 


ZB 


Working  space  for  one  GIN0  buffer. 


C0MM0N/FEERAA/ 

C0MM0N/FEERXC/ 

See  CFCNTL  for  a description  of  /FEERAA/  and  /FEERXC/  (Section  4.59.8.26). 

4.  Design  Requirements:  All  vectors  are  dimensioned  consistent  with  the  initial  problem 

size  (see  Section  4.59.8.31).  In  addition,  VIL  must  immediately  follow  VI  in  core. 

4.59.8.37  Subroutine  Name:  CLVEC 

1.  Entry  Point:  CLVEC 

2.  Purpose:  To  generate  the  left  eigenvectors  for  the  Determinant  and  Hessenburg  Methods 

if  requested.  (Note:  The  left  eigenvectors  are  already  generated  during  a normal  Inverse 

Power  approach.) 

3.  Calling  Sequence:  CALL  CLVEC  (LAMD,NVECT,PHIDL,IH,IBUF,IBUF1 ) 

LAMD  - GIM0  file  number  of  sorted  eigenvalues  - integer-input. 

NVECT  - Number  of  left  eigenvectors  to  be  calculated  - integer-input. 

PHIDL  - GIN0  file  number  of  data  block  PHIDL  - integer-input. 

IH  - Trailer  for  data  block  PHIDL  - integer  array-input, output . 

IBUF  - Open  core  pointer  to  GIN0  buffer  - integer-input. 

IBUFl  - Open  core  pointer  to  GIN0  buffer  - integer-input. 

2 

4.  Method:  For  each  eigenvalue,  , a dynamic  matrix  of  the  form  MX^.  + BX^.  + K is  formed 
and  decomposed  into  its  upper  and  lower  triangular  components  U and  L.  An  arbitraVy  load 
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vector  F is  generated  and  the  equation  U^L^4)^.  = F is  solved  for  the  left  eigenvector  (j)^. 

is  normalized  and  packed  into  output  file  PHIDL.  The  process  is  repeated  for  the  first 
NVECT  eigenvalues  on  file  LAMD.  Inverse  Power  subroutines  CINVPl , CINFP2,  CDIFBS  and  CN0RM1 
are  used  in  performing  the  above  operations. 

4.95.9  Design  Requirements  _ 

Open  core  is  defined  at  /CEADIX/  to  process  EED.  Open  core  is  defined  at  /CEADIA/  for  use 
by  CEADIA. 

4.59.10  Diagnostic  Messages 

The  following  diagnostic  messages  may  be  generated:  3001,  3002,  3003,  3005,  3007,  3008,  3025 

and  3045. 
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4.60  FUNCTIONAL  MODULE  VDR  (VECTOR  DATA  RECOVERY) 

4.60.1  Entry  Point:  VDR 

4.60.2  Purpose 


VDR  formats  data  blocks  for  input  to  the  Output  File  Processor  (0FP)  and  XY  plot  (XYPL0T) 
modules  to  provide  a capability  for  output  of  vectors  in  the  solution  set. 


4.60.3  DMAP  Calling  Sequence 


VDR 


/ \ 

fPHID  \ 
UDVF  / 

) CASECC  ( 

i EQDYN  j 

' j USETD  / . 

lUDVT 

(CASEXX  j’ 

‘1 HEQDYN j 

;’|husetd|’ 

IPHIH  ( 
fUHVT 
i HUDVT I 

CLAMA 

PPF 

T0L 

HT0L 


/ 


0PHID 

0UDVC1 

0UDV1 

0PHIH 

0UHVC1 

0UHV1 

H0UDV1 


0PNL1  (/ 
H0PNL1(^ 


(TRANRESPi  IdIRFCT/ 

C,N,<FREQRESP|/C,N,|f;[^P^^  |/V,N,S0RT2/V,N,0UTPUT/V,N,SDR2/V,N,FM0DE  $ 


4.60.4  Input  Data  Blocks 


CASECC  ( 
CASEXX  ( “ 


Case  Control  Data  Table. 


EQDYN 

HEQDYN 


Equivalence  between  external  and  internal  number  - Dynamics. 


USETD  - Displacement  set  definitions  table  - Dynamics. 


PHID 

UDVF 

UDVT 

PHIH 

UHVT 


Partition  of  displacement  vector. 


CLAMA 

PPF 

T0L  ( 
HT0L( 

XYCDB 


Complex  eigenvalue;/ table. 

Dynamic  loads  for  frequency  response  - p set. 

Table  of  output  times. 

X Y Control  Data  Block 


PNLD  ) 

PNLH  > - Non-Linear  Load  Vector. 

hpnld) 

HUSETD  - Temperature  set  definitions  table  - Dynamics. 
HUDVT  - Partition  of  temperature  vector. 
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Notes: 

1.  CASECC,  EQDYN  and  USETD  may  not  be  purged. 

2.  PP  may  be  purged  only  if  UDV  is  purged. 

3.  PNL  and  XYCDB  may  be  purged. 


4.60.5  Output  Data  Blocks 


0PHID 

0UDVC1 

0UDV1 

0PHIH 

0UHVC1 

0UHV1 


Output  displacement  requests  - Solution  set. 


0PNL1  ( 
H0PNL1  \ 


Non-Linear  Load  Vector. 


H0UDV1  - Output  temperature  requests  - Solution  set. 


Note:  Output  data  blocks  may  be  purged. 

4.60.6  Parameters 


The  first  parameter  indicates  a Rigid  Format  and  must  be  one  of  the  three  names  shown 
above.  The  second  parameter  indicates  a direct  or  modal  formulation  and  must  be  one  of  the 
two  names  shown  above. 


S0RT2 

0UTPUT 

SDR2 


Output- integer-no  default. 


+1  if  any  S0RT2  output  is  requested,  -1  otherwise. 


Output-integer-no  default.  +1  if  any  output  in  the  solution  set  is  requested, 
-1  otherwise. 

Output-integer-no  default.  +1  if  any  requests  for  output  in  the  physical  set 
are  found  in  CASECC  or  XYCDB,  -1  otherwise. 


FM0DE  - Input-integer-no  default.  If  a modal  formulation,  FM0DE  = mode  number  of  the 
first  mode.  FM0DE  is  not  used  in  a direct  formulation. 
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4.60.7  Method 

4.60.7.1  General 

VDR  is  the  main  control  program  for  the  module.  VDRA  is  called  to  analyze  the  Case 
Control  (CASECC)  and  XYCDB  data  blocks.  If  any  requests  for  solution  set  output  are  found, 
VDRB  is  called  to  assemble  the  0UDV1  output  data  block  for  processing  by  the  0FP.  If  the 
problem  is  a transient  response  problem,  VDRB  is  called  a second  time  to  process  any  requests 
for  non-linear  load  output. 

4.60.7.2  Analysis  of  the  Case  Control  and  XYCDB  Data  Blocks 

VDRA  attempts  to  open  the  XYCDB  data  block.  If  it  is  purged,  a return  is  given  to  VDR. 

Otherwise,  the  header  record  and  first  data  record  of  XYCDB  are  skipped,  and  data  applying  to 
all  subcases  are  read  from  the  second  data  record.  If  no  such  data  exist,  a dumrriy  master 
is  created.  Otherwise,  the  master  data  are  reduced  to  a list  of  unique  pairs.  If  only  master 
data  exist,  flags  are  set  appropriately. 

For  each  record  in  the  Case  Control  data  block  the  following  processing  occurs; 

1.  The  record  is  read  into  core.  If  no  XYCDB  subcase  corresponds  to  the  Case  Control 
subcase,  pointers  are  set  to  the  master  data.  Otherwise,  the  master  data  and  appropriate 
XYCDB  subcase  data  are  merged  and  reduced  to  unique  pairs. 

2.  For  each  request  for  solution  set  output  in  XYCDB,  the  corresponding  request  in  Case 

Control  is  examined.  If  no  request  is  present  in  Case  Control,  the  XYCDB  request  is 
reduced  to  a set  in  Case  Control  format,  and  a request  for  the  set  is  turned  on  in  Case 

Control.  If  the  Case  Control  set  is  "ALL",  no  further  action  is  taken.  If  the  Case 

Control  request  is  a set,  the  set  is  merged  with  the  XYCDB  set,  and  the  request 
altered  to  reflect  the  new  set  (unless  all  points  in  the  XYCDB  set  were  already  in  the 
Case  Control  set).  A flag  is  set  if  any  new  requests  are  formed, 

3.  When  all  requests  for  the  current  Case  Control  record  have  been  analyzed,  the 
record  (as  modified)  is  written  on  a scratch  file. 

4.  When  all  Case  Control  records  have  been  read,  the  GIN0  file  name  for  the  Case  Control 
data  block  is  switched  to  the  scratch  file  (unless  no  modifications  were  made  to  Case 
Control ) . 


4.60-3  (7/4/76) 


MODULE  FUNCTIONAL  DESCRIPTIONS 


4.60.7.3  Preparation  of  Solution  Set  Output 

The  operations  of  VDRB  are  dependent  on  the  Rigid  Format  being  executed.  VDRB  operates 
in  all  six  of  the  dynamics  Rigid  Formats.  The  initial  operations  in  VDRB  proceed  as  follows: 

1.  For  a direct  solution,  or  a modal  solution  with  extra  points,  the  second  record  of  EQDYN 
is  read  into  core.  USETD  is  read  into  core. 

2.  If  the  problem  is  a direct  solution,  each  entry  in  EQDYN  is  processed.  The  scalar 
index  value  (the  2nd  word  of  each  entry)  is  replaced  by  the  scalar  index  value  in  the 
solution  set  plus  a code  indicating  which  components  of  the  point  are  in  the  solution 
set. 

3.  If  the  problem  is  a modal  solution  with  extra  points,  the  scalar  index  of  each  extra 
point  in  EQDYN  is  replaced  with  a scalar  index  in  the  solution  set.  The  scalar  indices  of 
all  other  points  are  replaced  with  zero. 

4.  If  the  problem  is  a complex  eigenvalue  problem,  a list  of  mode  numbers  and  complex 
eigenvalues  is  read  into  core  from  the  CLAMA  data  block. 

5.  If  the  problem  is  a transient  response  problem,  a list  of  times  is  read  into  core 
from  the  T0L  data  block. 

6.  If  the  problem  is  a frequency  response  problem,  a list  of  frequencies  is  read  into 
core  from  the  PP  data  block. 

7.  The  header  record  on  the  input  file  is  skipped,  and  various  parameters  are 
initialized  for  the  overall  processing. 

A record  on  the  Case  Control  data  block  is  read.  The  output  request  is  examined.  If 
the  output  is  defined  in  terms  of  a set,  pointers  to  the  set  definition  are  computed.  The 
vector  is  unpacked  in  core  (unless  the  vector  is  already  in  core  in  the  case  of  velocities  and 
accelerations  for  frequency  problems). 

Information  is  assembled  to  write  the  identification  record  on  the  output  data  block 
as  follows. 

1.  For  complex  eigenvalues,  the  mode  number  and  eigenvalue  are  picked  up  from  the  list 
in  core. 
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2.  For  frequency  response,  the  frequency  is  picked  up  from  the  list  in  core.  A 
comparison  with  the  0FREQ  selection  in  Case  Control  is  made.  If  the  current  frequency 
is  not  marked  for  output,  the  remainder  of  the  calculations  for  the  current  vector  are 
skipped. 

3.  For  a transient  problem,  the  time  is  picked  up. 

The  identification  record  is  written.  Entries  are  written  in  the  data  record  according  to 
the  request.  The  modified  EQDYN  table  in  core  is  used  to  pick  up  points  in  the  vector  to  be 
output.  Conversion  to  magnitude  and  phase  is  made  if  requested. 

When  all  points  in  the  current  request  have  been  processed,  post  processing  occurs 
depending  on  the  problem  type  as  follows: 

1.  For  complex  eigenvalues,  a pointer  is  updated  to  the  next  mode  number  and  eigenvalue. 

If  all  eigenvectors  have  not  been  processed,  the  steps  above  are  repeated.  Otherwise, 
terminal  processing  is  initiated. 

2.  For  frequency  response,  if  the  vector  just  processed  was  a displacement  vector, 

the  corresponding  velocity  vector  is  determined  by  differentiating  with  respect  to  time. 

{v}  = iw  {u}.  (1) 

Similarly,  if  the  vector  just  processed  was  a velocity  vector,  the  corresponding 
acceleration  vector  is  formed  by  differentiating  with  respect  J:o  time: 

{a}  = iw  {v}.  (2) 

If  all  vectors  have  not  been  processed,  the  steps  above  are  repeated.  Otherwise, 
terminal  processing  is  initiated. 

3.  For  transient  response,  pointers  are  updated  so  that  the  vectors  will  be  processed  in 
the  order  a)  displacement,  b)  velocity,  and  c)  acceleration.  If  all  vectors  have  not  been 
processed,  the  steps  above  are  repeated.  Otherwise,  terminal  processing  is  initiated. 

The  terminal  processing  consists  of  closing  all  files,  writing  a trailer  on  the 
output  file  and  exiting. 
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4.60.8  Subroutines 

4.60.8.1  Subroutine  Name:  VDR 

1.  Entry  Point:  VDR 

2.  Purpose:  Main  control  program  for  the  module. 

3.  Calling  Sequence:  CALL  VDR 

4.60.8.2  Subroutine  Name:  VDRA 

1.  Entry  Point:  VDRA 

2.  Purpose:  To  analyze  the  output  requests  in  the  Case  Control  and  XYCDB  data  blocks. 

3.  Calling  Sequence:  CALL  VDRA 

4.60.8.3  Subroutine  Name:  VDRB 

1.  Entry  Point:  VDRB 

2.  Purpose:  To  process  requests  for  solution  set  output  and  assemble  the  output 

data  block. 

3.  Calling  Sequence:  CALL  VDRB  (INFIL,0UTFL,IREQ) 

INFIL  - 6IN0  file  name  of  the  data  block  containing  vectors  to  be  output  in  the 

solution  set. 

0UTFL  - 6IN0  file  name  of  the  data  block  where  solution  set  output  will  be  written. 

IREQ  - Word  position  in  the  Case  Control  record  where  solution  set  output  request  is 

defined. 

4.60.9  Design  Requirements 
4.60.9.1  Allocation  of  Core  Storage 
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The  maximum  storage  requirements  for  the  module  are  in  VDRB.  A general  picture  of  core 
storage  is  as  follows: 

C0MM0N/VDRC0R/Z(1) 

) 2 words  per  entry,  one  entry  for  each 

i point  in  the  problem. 

I 1 , 2 or  3 words  per  entry,  one  entry  for 
I each  eigenvalue,  frequency  or  time. 


( One  word  for  each  degree  of  freedom  in  the 
j solution  set.  (two  words  if  complex). 


4.60.9.2  Environment 

The  Block  Data  program  VDRBD  initializes  /VDRC0M/  with  GIN0  file  names,  data  defining 
position  of  parameters  in  a Case  Control  record,  data  defining  rigid  formats  and  problem 
types,  and  miscellaneous  data.  It  must  be  in  core  when  VDR  is  executed. 

The  module  VDR  is  designed  to  be  executed  as  one  overlay  segment.  Open  core  is  defined 
by  /VDRC0R/.  Two  scratch  files  are  used. 


EQDYN  Table 


ILIST 

ICC+1 

IVEC 

BUF3 

BUF2 

BUFl 


List  of  eigenvalues, 
frequencies  or  times 

Case  Control  record 

Unpacked  Vector 

Buffer  for  input  file 

Buffer  for  output  file 

Buffer  for  Case 
Control 


4.60-7  (7/4/76) 


FUNCTIONAL  MODULE  FRRD  (FREQUENCY  RESPONSE  - DISPLACEMENT  APPROACH) 


4.61  FUNCTIONAL  MODULE  FRRD  (FREQUENCY  RESPONSE  - DISPLACEMENT  APPROACH) 


4.61.1  Entry  Point:  FRRD 

4.61.2  Purpose 


To  solve  the  matrix  equation 

[-0)?  [M]  + ia.  [B]  + [K]]  [X]  = [P(o).)] 

at  a given  set  of  frequencies  o)^.  and  loads  P (which  may  be  functions  of  ca^. ). 


4.61.3  DMAP  Calling  Sequence 

FRRD  CAS  ECC , USETD , DLT , FRL , GMD , G0D , I I g I , I I , PH  I DH , DI T/UH  V , PS , PD , PP/ V , N , APP/ 

V,N,F0RM/V,N.LUSETD/V,N,MPCF1/V,N,SINGLE/V,N,0MIT/V,N,NONCUP/V.N,FRQSET/C,Y,DEC0M0PT=1  $ 


4.61.4  Input  Data  Blocks 


CASECC 

- 

Case  Control  Data  table. 

USETD 

- 

Displacement  set  definitions  table  dynamics. 

DLT 

- 

Dynamic  Loads  Table. 

FRL 

- 

Frequency  Response  List. 

GMD 

- 

Multipoint  constraint  transformation  matrix  - dynamics 

G0D 

- 

Omitted  coordinate  transformation  matrix  - dynamics. 

KDD 

- 

Modal  stiffness  matrix  - d set. 

KHH 

- 

Modal  stiffness  matrix  - h set. 

BDD 

- 

Modal  damping  matrix  - d set. 

BHH 

- 

Modal  damping  matrix  - h set. 

MDD 

- 

Modal  mass  matrix  - d set. 

MHH 

- 

Modal  mass  matrix  - h set. 

PHIDH 

- 

Transformation  matrix  from  d set  to  modal  coordinates. 

DIT 

- 

Direct  Input  Tables. 

Notes: 

1. 

CASECC  cannot  be  purged. 

2. 

USETD  cannot  be  purged. 

3. 

DLT  cannot  be  purged. 

4. 

FRL  cannot  be  purged. 

5. 

GMD  cannot  be  purged  if  MPCFl  ^ 0. 

6. 

G0D  cannot  be  purged  if  0MIT  ^ 0. 
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7.  PHIDH  cannot  be  purged  if  F0RM  = M0DAL. 

8.  DIT  cannot  be  purged  if  a load  uses  tables. 

4.61.5  Output  Data  Blocks 

UHV  - Displacement  vectors. 

PS  - Partition  of  load  vector  matrix  giving  loads  in  s set. 

PD  - Load  vectors  - d set. 

PP  - Load  vectors  - p set. 

Notes:  1.  UHV,  PD,  and  PP  cannot  be  purged. 

2.  PS  cannot  be  purged  if  SINGLE  ^ 0. 

4.61.6  Parameters 


APP 

F0RM  - 
LUSETD  - 
MPCFl  - 
SINGLE  - 
0MIT  - 
N0NCUP  - 
FRQSET  - 


Input-BCD-no  default.  APP  should  be  set  equal  to  DISP. 

Input-BCD-no  default.  F0RM  = M0DAL  implies  a modal  solution  should  be  used. 
Input-integer-no  default.  LUSETD  indicates  length  of  p set. 

Input-integer-no  default.  MPCFl  ^ 0 implies  multipoint  constraints  present. 
Input-integer-no  default.  SINGLE  ^ 0 implies  single-point  constraints  present. 
Input-integer-no  default.  0MIT  ^ 0 implies  omitted  coordinates  present. 
Input-integer-no  default.  N0NCUP  = -1  implies  noncoupled  solution  if  F0RM  = M0DAL. 
Output-integer-no  default.  FRQSET  is  the  set  id  of  the  selected  frequency  list 
from  CASECC. 


4.61.7  Method 

4.61.7.1  Overview  of  the  Method 


The  Frequency  Response  module  for  the  displacement  approach  assembles  a frequency-dependent 
load  vector  and  solves  for  the  steady-state,  frequency  response,  displacement  vectors.  Various 
load  sets  are  defined  as  functions  of  frequency.  Combinations  of  these  sets  are  used  with  the 
various  specified  frequencies.  Load  vectors  for  each  frequency  are  formed  and  reduced  to  loads  on 
the  proper  degree  of  freedom.  The  solutions  for  both  direct  formulation  and  coupled  modal  formula 
tion  are  identical  except  that  different  matrices  are  used.  The  solution  involves  a triangular 

decomposition  and  back  substitution  using  the  type  of  arithmetic  selected  by  the  matrix  types  for 
each  frequency  according  to  the  following  table. 
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Trailer  Complex  Terms  Decomp  Method 

CDC  Other 


SYM 

No 

RSSP 

RSDP 

SYM 

Yes 

CSSP 

CSDP 

UNSYM 

No 

RUDP 

RUDP 

UNSYM 

Yes 

CUDP 

CUDP 

where: 

SYM  = symmetric  dynamic  matrix 

UNSYM  = unsymmetric  dynamic  matrix 

RSSP  5=  real  symmetric  single  precision 

RSDP  = real  symmetric  double  precision 

RUDP  = real  unsymmetric  double  precision 
CUDP  = complex  unsymmetric  double  precision 
CSSP  = complex  symmetric  single  precision 

CSDP  = complex  symmetric  double  precision 


The  solutions  for  the  uncoupled  modal  formulation  are  analytic  equations. 


4.61.7.2  Logical  Phases 


1.  The  load  vectors  for  each  desired  frequency  are  assembled  from  the  DLT  data  block.  The 
DL0AD  section  of  the  DLT  tells  which  load  sets  to  use  and  what  scale  factors  to  use  in  com- 
bining the  load  sets.  The  data  for  each  load  set  are  given  in  the  RL0AD  or  TL0AD  section 
of  the  DLT.  This  is  done  in  subroutine  FRRDIA. 

2.  The  total  load  vectors  are  partitioned  and  manipulated  to  produce  load  vectors  on  the 
solution  coordinates.  This  is  done  in  subroutine  FRRDIB. 

3.  The  matrix  equation  for  displacements  is  now  solved  for  each  load  combination  and  each 
frequency.  The  overall  dynamic  matrix  is  formed.  The  matrix  is  decomposed,  and  the  dis- 
placements are  formed  by  back  substitution  using  the  various  loads.  If  the  formulation  is 
an  uncoupled  modal  system,  the  displacements  are  calculated  directly.  This  is  done  by  sub- 
routines FRRDIC  and  FRRDID  or  FRRDIF. 
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4.  The  solution  vectors  are  then  resorted  into  load-frequency  order.  This  work  is  done 
by  subroutine  FRRDIE. 

4.61 .7.3  Algorithms 

1.  Assembly  of  Load  Vectors: 

The  frequency  set  id  is  extracted  from  CASECC.  This  frequency  set  is  placed  in  core 
from  the  FRL  and  converted  from  radians  to  frequency.  These  frequencies  are  output  into 
the  header  of  PPF  for  later  output  identification.  The  load  id  is  read  from  CASECC,  found 
in  DLT,  and  a table  is  constructed  giving  a simple  id  and  a scale  factor  for  each  com- 
ponent. The  DLT  data  are  read  for  each  simple  id,  and  a list  of  the  required  tables  is 
extracted.  Core  is  allocated  to  hold  as  many  load  vectors  as  possible  up  to  the  number 
of  frequencies.  If  tables  are  present,  they  are  initialized  and  evaluated  for  all  frequencies 
in  core.  The  DLT  is  read,  and  two  types  of  loads  are  constructed; 


1) 

RL0AD1 

p(f) 

= A[C(f)  + 

(2) 

2) 

RL0AD2 

p(f) 

(3) 

where  A,  B,  C,  D,  <(),  0 and  t are  user  input  constants  or  tables. 
TL0AD  loads  are  computed  as  follows: 
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Case  1.  TL0AD1  data  card,  referencing  a TABLEDl , 2 or  3. 

The  P{t)  is  given  in  terms  defined  on  the  above  data  cards  by 

/t-Ti-Xl\ 

Pj(t)  = 5^2  j Ha) 

Y-p  is  a piecewise  linear  table,  for  the  (N-1)  intervals  {x-|,X2)  ...  (X|^_p  Xjj)-  Then, 

-iooT.  N-1  X.  ,-x. 

Pj(oo)  = A^e  -g-—  (L^.Y.  + R.Y.^^)  (lb) 

where 

-ioa(Xl+X2*x.) 

L.  = e ^ E^-io>X2{x.^^-x.))  (Ic) 

-ia)(Xl+X2.x.,,) 

R^  = e ^ ' E2(iuX2(x.^^ -X.))  (Id) 

£2(1*0)  is  computed  by  special  formulas  for  large  and  small  0,  as  defined  in  module  I FT. 
E2(-i0)  is  the  conjugate  of  £2(0). 

Case  2.  TL0AD1  with  TABLED4. 


Then, 


X3  < t-T..  < X4 

J 

Otherwise 


- i 0)T  . 

Pj(u)=Aje  J(SUM) 


(SUM)  = e"’“^^(X4-X3)  I 
n=0 


n+1 


En+i(iu)(X4-X3)) 


(2a) 


(2b) 


(2c) 


(2d) 
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The  function  E^(ie)  is  computed  as  follows: 

If  0 < 6 < 0.1 , compute  for  n=N 

Re  E^(ie)  = 1 - (n+i)(n+2)  ^ (N+1 ) . . . (N+4) 
Im  E|^(l0)  = - (N+l)f..(N+3)  ■ •••' 

_Q 

Stop  when  last  term  < 10  . 

Then,  by  recursion  for  n=N-l ,N-2, . . . ,1 

■ ' - sir  I” 
sir 

If  0.1<  0 < 00  , compute  for  n=0 
Re  EgCie)  = cos  e 
Im  Eq(i0)  = sin  0 

Then,  by  recursion  for  n=l ,2,3, . . . ,N 
Re  E^(ie)  = Im  E^_^(ie) 

Im  E^(ie)  = ^ [1  - Re  E^_^(ie)] 


Case  3.  TL0AD2  with 


Pj(t)  = 


AjtV^  cos(2irFt-HP)  0 < t < T2~T^ 

0 otherwise 


t . t - Ti  - X, 


B will  be  restricted  to  an  integer  > 0. 

xB+1 


-TLOT. 

P.(co)  = A.e  J[R2+Ri] 


(T2-Ti)^ 


2(B-H) 


(2e) 

(2f) 


(2g) 

(2h) 


(2i) 

(2j) 

(2k) 

(2)1) 


(3a) 


(3b) 
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R2  = 


where  power  = +iP+(c+i27rF)(T2”T^  )-iu3T2 
and  z = -[c+i27TF-ia)](T2-T^ ) 

R^  = same  as  R2  except  the  sign  of  P and  F are  reversed. 


EgU)  = 


^ B+1  (B+l)(B+2)  ^ 

_Q 

(until  last  term  < 10  ) 


< .1 


I - 


B-1 


k=0  k! 


|z|  ^ .1 


(3c) 


(3d) 


If  all  frequencies  cannot  be  evaluated  at  once,  additional  passes  through  the  DLT  are  made 
until  all  are  evaluated.  If  additional  subcases  exist  in  CASECC,  the  above  steps  are 
repeated  for  each  load. 
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2.  Manipulation  of  Load  Vectors: 

The  vectors  produced  in  the  previous  sections  are  related  to  the  p set.  They  are 
reduced  by  the  following  steps  using  data  blocks  USETD,  GMD  and  G0D. 


If  MPCFl  >0: 

V=»|4f-}.  <4) 

«''ne>  ■ ■ <5) 

If  SINGLE  > 0: 

(4) 

{Pg}  is  output  on  data  block  PS, 

If  0MIT  > 0; 

{Pfe>— (7) 
{Pj}  = {P^j}  + [gJ]^  {P^}.  (8) 

{P|j}  is  output  on  PD. 

If  F0RM  = M0OAL: 

<fh>  ■ <«) 

3.  Solution  Phase: 

For  a direct  formulation  the  equation  to  be  solved  is: 

[-0)2  [Mj^]  + io)  [Bj^]  + [K^^]]  {Uj}  = {P^(o))}  . (10) 

For  a coupled  formulation  the  equations  to  be  solved  is: 

[-0)2  [M^^]  + io)[B^j,]  + [K^^,]]  {Uj,}  = {P^(o))}  . (11) 
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The  left  hand  matrix  is  generated  by  two  calls  to  ADD  and  decomposed.  The  normal  matrix 
decomposition  checks  are  relaxed  in  these  solutions.  It  is  expected  that  the  matrices  will 
not  pass  the  triangular  decomposition  at  certain  frequencies.  The  solution  will  proceed, 
and  only  a warning  will  be  issued.  The  loads  at  the  given  frequency  are  collected  from  the 
load  file  and  fed  to  GFBS  for  a forward  backward  substitution  solution.  If  the  decomposi- 
tion failed,  a zero  vector  will  result. 

For  one  uncoupled  modal  formulation  the  equations  to  be  solved  are: 

P,.(o)) 

= 2^ . 02) 

-m^.o)  + ib^.o)  + k^. 

With  zero  damping  the  uncoupled  modal  formulation  may  produce  division  by  small  numbers. 

This  fact  is  noted  and  the  solution  proceeds. 

4.  Order  Phase: 

Except  for  the  uncoupled  modal  approach  it  may  be  necessary  to  reorder  the  solutions 
from  a frequence  / load  sort  to  a load  / frequency  sort. 

4.61.8  Subroutines 

Utility  subroutines  PRETAB, TAB, CALCV,SSG2B,SSG2A,SSG2C,CDC0MP,SCDCMP,CSPSDC,CXFBS,FACT0R, 
SDC0MP,  DEC0MP,  SSG3A  and  GFBS  are  used.  See  subroutine  descriptions.  Section  3,  for  details. 

4.61.8.1  Subroutine  Name:  FRRDIA 

1.  Entry  Point:  FRRDIA 

2.  Purpose:  To  assemble  the  user  selected  loads. 

3.  Calling  Sequence:  CALL  FRRDIA  (DLT,FRL,CASECC,DIT,PP,LUSETD,NFREQ,NL0AD,FRQSET,F0L) 

DLT,FRL,CASECC,DIT,PP  are  GIN0  file  numbers  of  their  respective  data  blocks  - integer  - 
input. 

LUSETD  - Length  of  p set  - integer  - input. 

NFREQ  - Number  of  frequencies  in  selected  frequency  set  - integer  - output. 

F0L  - the  6IN0  file  number  of  the  output  frequency  list  - may  be  purged. 
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NL0AD  - Number  of  loads  (records  in  CASECC)  selected  - integer  - output. 

FRQSET  - Set  id  of  selected  frequency  set  - integer  - output. 

4.61.8.2  Subroutine  Name:  FRRDIB 

1.  Entry  Point:  FRRDIB 

2.  Purpose:  To  reduce  loads  from  the  p to  the  d (or  h)  set. 

3.  Calling  Sequence:  CALL  FRRDIB  (PP. USETD,GMD,G0D, MULTI , SINGLE, 0MIT,M0DAL,PHIDH, 

PD,PS,PH,SCR1 ,SCR2,SCR3,SCR4) 

PP,USETD,GMD,G0D,PHIDH,PD,PS,PH  are  GIN0  file  numbers  of  their  respective  data 
blocks  - integer  - input. 

MULTI  - MULTI  ^0  implies  m's  are  present  - integer  - input. 

SINGLE  - SINGLE  ^0  implies  s's  are  present  - integer  - input. 

0MIT  - 0MIT  >0  implies  o's  are  present  - integer  - input. 

M0DAL  - M0DAL  = M0DA  implies  a modal  formulation  - BCD  - input. 

CpRl 

GIN0  file  numbers  of  4 scratch  files  - integer  - input. 

SCR4 

4.61.8.3  Subroutine  Name:  FRRDIC 

1.  Entry  Point:  FRRDIC 

2.  Purpose:  To  form  and  decompose  “left"  hand  side  of  the  frequency  equation. 

3.  Calling  Sequence:  CALL  FRRDIC  (FRL, FRQSET, MDD,BDD,KDD, I, ULL, LLL, SCRl ,SCR2,SCR3, 

SCR4,IG00D) 

FRL,MDD,BDD,KDD,ULL,LLL,SCRl-4  are  GIN0  file  numbers  of  their  respective  data  blocks  - 
integer  - input. 

FRQSET  - Set  id  of  selected  frequency  set  - integer  - output. 

I - Current  frequency  counter  - integer  - input. 

IG00D  - IG00D  = 1 implies  a singular  matrix  - integer  - output. 

4.61.8.4  Subroutine  Name:  FRRDID 

1.  Entry  Point:  FRRDID 

2.  Purpose:  To  solve  for  displacements  given  decomposition  factors  and  loads. 
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3.  Calling  Sequence:  CALL  FRRD1D  (PD,ULL,LLL,SCR1 ,SCR2,UDVP,I ,NL0AD,IG00D,NFREQ) 

PD,ULL,LLL,UDVP,SCR1  ,SCR2  are  GIN0  file  numbers  of  their  respective  data  blocks  - integer  - 
input. 

I - Current  frequency  count  - integer  - input. 

NL0AD  - Number  of  loads  - integer  - input. 

IG00D  - IG00D  = 1 implies  a singular  matrix  - integer  - input. 

NFREQ  - Total  number  of  frequencies  - integer  - input. 

4.61.8.5  Subroutine  Name:  FRRDIE 

1.  Entry  Point:  FRRDIE 

2.  Purpose:  To  reorder  displacements  if  necessary. 

3.  Calling  Sequence:  CALL  FRRDIE  (UDVP,UDV,NL0AD,I) 

UDVP  - GIN0  file  number  of  displacements  sorted  by  frequency/load  - integer  - input. 

UDV  - GIN0  file  number  of  displacements  sorted  by  load/frequency  - integer  - input. 

NL0AD  - Number  of  loads  - integer  - input. 

I - Number  of  frequencies  solved. 

4.61.8.6  Subroutine  Name:  FRRDIF 

1.  Entry  Point:  FRRDIF 

2.  Purpose:  To  solve  the  uncoupled  modal  equations. 

3.  Calling  Sequence:  CALL  FRRDIF  (MHH,BHH,KHH,FRL,FRQSET,NL0AD, NFREQ, PH, UHV) 

MHH,BHH,KHH,FRL,PH,UHV  are  GIN0  file  numbers  of  their  respective  data  blocks  - integer  - 
input. 

FRQSET  - Selected  frequency  set  id-integer  - input. 

NFREQ  - Number  of  frequencies  in  FRQSET  - integer  - input. 

NL0AD  - Number  of  loads  (subcases  in  current  execution)  - integer  - input. 

4.61.8.7  Subroutine  Name:  FACTRU 

1.  Entry  Point:  FACTRU 

2.  Purpose:  To  decompose  a matrix  by  invoking  real  unsymmetric  decomposition  [A]  [LL][UL]. 


4.61-7  (3/1/74) 


FUNCTIONAL  MODULE  FRRD  (FREQUENCY  RESPONSE  - DISPLACEMENT  APPROACH) 


3.  Calling  Sequence:  CALL  FACTRU  {$n,A,LL,UL,SCRl .SCR2.SCR3) 

where  A,LL,UL,SCR1  ,SCR2,SCR3  are  the  GIN0  file  numbers  of  their  respective  data  blocks, 
n - statement  number  to  return  to  if  A is  singular. 

4.  Design  Requirements: 

a)  A must  have  a trailer 

b)  A trailer  will  be  written  on  LL  and  UL 

c)  Open  core  must  be  available  at  /FCTRUX/ 

4.61.9  Design  Requirements 

Eight  scratch  files  are  used  by  FRRD. 

Open  core  at  /FRRDAl/  is  used  as  follows: 
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} 

} 

} 


NFREQ 


ID,  scale  for  all  members  of  a DL0AD  card 

NTABL 

2*  LUSETD 
2*  LUSETD 

NTABL 


As  many  loads  as  will  fit 
up  to  all  frequencies. 


Open  core  at  /FRRDBl/,  /FRRDCl/,  /FRRDDl/  are  used  by  the  matrix  routines. 
Open  core  at/FRRDFl/  is  used  as  follows: 


NFREQ 

h set  size 
h set  size 

h set  size 


2 GIN0  Buffers 


4.61.10  Diagnostic  Messages 

Module  FRRD  may  issue  the  following  diagnostic  messages: 
3005,  3008  and  3045. 
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I ^ 

4.62  FUNCTIONAL  MODULE  SDRS  (STRESS  DATA  RECOVERY  - PHASE  3 - S0RT1  to  S0RT2  PROCESSOR) 


4.62.1  Entry  Point:  SDRS 


4.62.2  Purpose 


To  transpose  (perform  S0RT2)  data  blocks  containing  data  prepared  for  output  in  the  form  of 

! 

ELEMENT- ID-SETS  or  P0INT-ID-SETS  versus  TIME-STEP  or  FREQUENCY-STEP  to  data  prepared  for  output 
' in  the  form  of  TIME-STEP-SETS  or  FREQUENCY-STEP-SETS  versus  ELEMENT-ID  or  P0INT-ID. 

I 

4.62.2.1  Example  of  S0RT1  and  S0RT2  Output 


Below  is  a table  of  0FP  printed  output  of  SDRS  input  (S0RT1)  and  output  (S0RT2)  data  blocks. 


SDRS  Input  Data  Block  Printed  (S0RT1) 


TIME  = 1 .0 
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E 
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S 
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T1 

T2 
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R1 

R2 
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0.0 
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0.0 

0.0 
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0.0 
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0.0 
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0.0 
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SDRS  Output  Data  Block  Printed 

(S0RT2) 

POINT-ID  = 1 
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0.0 

I 
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4.62.3  DMAP  Calling  Sequence 

I 

I SDRS  INl,IN2,IN3,IN4,IN5,IN6/0UTl,i5UT2,5IUT3,0UT4,i9UT5,|JUT6/  $ 

4.62.4  Input  Data  Blocks 

i 

One  to  six  data  blocks  in  any  order  desired.  Input  data  blocks  to  SDR3  which  are  purged 
I are  ignored. 

I 4.62.5  Output  Data  Blocks 

One  to  six  data  blocks  in  corresponding  order  to  that  of  the  input  data  blocks.  If  S0RT2 
I is  to  be  performed,  there  must  be  an  available  output  data  block  for  the  corresponding  inout  data 

block  (Non-Fatal  Error  if  this  condition  is  not  met). 

j 4.62.6  Parameters 

I None 

4.62.7  Method 

^ 4.62.7.1  Input  and  Output  Data  Block  Record  Arrangements 

Both  the  input  and  output  data  blocks  of  SDR3  have  the  following  format: 
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4.62  FUNCTIONAL  MODULE  SDRS  (STRESS  DATA  RECOVERY  - PHASE  3 - S0RT1  to  S0RT2  PROCESSOR) 

4.62.1  Entry  Point:  SDRS 

4.62.2  Purpose 

To  transpose  (perform  S0RT2)  data  blocks  containing  data  prepared  for  output  in  the  form  of 
ELEMENT-ID-SETS  or  P0INT-ID-SETS  versus  TIME-STEP  or  FREQUENCY-STEP  to  data  prepared  for  output 
in  the  form  of  TIME-STEP-SETS  or  FREQUENCY-STEP-SETS  versus  ELEMENT -ID  or  P0INT-ID. 


4.62.2.1  Example  of  S0RT1  and  S0RT2  Output 


Below  is  a table  of  0FP  printed  output  of  SDRS  input  (S0RT1)  and  output  (S0RT2)  data  blocks. 


SDRS  Input  Data  Block  Printed  (S0RT1) 
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SDRS  Output  Data  Block  Printed  (S0RT2) 


POINT-ID  = 1 
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4.62.3  DMAP  Calling  Sequence 

SDRS  IN1,IN2,IN3,IN4,IN5,IN6/0UT1,0UT2,?IUT3,0UT4,0UT5,0UT6/  $ 

4.62.4  Input  Data  Blocks 

One  to  six  data  blocks  in  any  order  desired.  Input  data  blocks  to  SDRS  which  are 
are  ignored. 

4.62.5  Output  Data  Blocks 

One  to  six  data  blocks  in  corresponding  order  to  that  of  the  input  data  blocks, 
is  to  be  performed,  there  must  be  an  available  output  data  block  for  the  corresponding 
block  (Non-Fatal  Error  if  this  condition  is  not  met). 

4.62.6  Parameters 
None 

4.62.7  Method 

4.62.7.1  Input  and  Output  Data  Block  Record  Arrangements 

Both  the  input  and  output  data  blocks  of  SDRS  have  the  following  format: 


purged 


If  S0RT2 
inout  data 
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Group  1 


Group  M 


Header 

ID 

DATA 

ID 

DATA 

• 

ID 

DATA 

ID 

DATA 

; 

ID 

DATA 

Record  0 
Record  1 
Record  2 
Record  3 
Record  4 


I Record  N -1 

I Record  N (an  even  number) 
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4. 6?. 7. 2 Description  of  a Group 


1.  An  input  (S0RT1)  data  block  Group  and  an  output  (S0RT2)  data  block  Group  are  given  in  the 
following  figures: 


Theoretical  Input  Group 
(S0nTl) 


One  Input  Group 


ID 

Data  Type  1 
DATA 

Entries  1 thru  Ki 


ID 

Data  Type  J 
DATA 

Entries  1 thru  Kj 


ID 

Data  Type  1 
DATA 

Entries  1 thru  Ki 


ID 

Data  Type  J 
DATA 

Entries  1 thru  K 


Record  pair  for 
Data  Type  1 . 


Record  pair  for 
Data  Type  J. 


Record  pair  for 
Data  Type  1 . 


Record  pair  for 
Data  Type  J. 


Base  Set  for 
Value  1. 


/ 


Base  Set  for 
Value  I. 
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Theoretical  Output  Group 
(S0RT2) 


One  Output  Group 


ID  Record 
Data  Type  1 

DATA  Record 
Entries  1 thru  I 


ID  Record 
Data  Type  1 

DATA  Record 
Entries  1 thru  I 


J 

ID  Record 
Data  Type  J 

DATA  Record 
Entries  1 thru  I 


ID  Record 
Data  Type  J 

DATA  Record 
Entries  1 thru  I 


Record  pair  for 
P0INT  or  ELEMENT  1 


Record  pair  for 
P0INT  or  ELEMENT  K 


S0RT2  Collection 
of  Data  Tyne  1 . 


Record  pair  for 
P0INT  or  ELEMENT  Ij 


S0RT2  Collection 
of  Data  Type  J. 


Record  pair  for 
P0INT  or  ELEMENT  Kj 

/ 
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2.  In  the  above  figures  each  Group  is  independent  of  any  other  Group  so  far  as  SDR3  need 
be  concerned. 

3.  A Group  is  defined  as  a collection  of  successive  records  belonging  to  the  same  subcase. 

4.  An  ID-Record  is  of  a fixed  size  equal  to  146  words. 

5.  A DATA-Record  contains  multiple  Entries  with  each  Entry  being  of  a length  in  words 
specified  within  the  immediately  preceding  ID-Record. 

6.  I = The  number  of  Values  (FREQUENCIES  or  TIMES)  present  in  the  Grouo. 

7.  A Base  Set  is  a sub-Group  of  the  Group  containing  data  records  for  one  oarticular  Value, 

8.  J = The  number  of  different  Data  Types (DISPLACEMENTS,  VELOCITIES,  etc.)  within  a Base  Set. 

9.  Kj  = The  number  of  Entries  for  Data  Type  j. 

10.  Respective  records  of  any  two  Base  Sets  within  an  input  data  block  Group  are  of  the 
same  size. 

t 

11.  Respective  Entries  within  respective  DATA  Records  of  all  Base  Sets  of  an  input  data 
block  Group  begin  with  the  same  ELEMENT-ID  or  P0INT-ID. 

12.  Most  input  data  blocks  will  contain  only  one  Group  having  but  one  Data  Type.  There  is 
normally  more  than  one  Base  Set  within  any  Group. 

13.  A pictoral  representation  of  a S0RT1  to  S0RT2  process  is  given  on  the  next  page  using 
the  following  data: 

Values  = 3 time  steps  (1.0,  2.0,  3.0) 

(1  - Displacements  (3  Entries/Value  - points  5,  8 and  9) 

Data  Types  - Velocities  (2  Entries/Value  - points  3 and  4) 

13  - Accelerations  (2  Entries/Value  - points  1 and  4) 
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Input  Data  Block 
S0RT1  Group 


Output  Data  Block 
S0RT2  Group 


ID  ] 

Recoroj 

DATA 
I Record 


Base 

Set 


Base 

Set 


Base 

Set 


displacements 

t = 1 .0 

Pt.  5 Entry 

Pt.  8 Entry 

Pt.  9 Entry 

Va'OClTlES 
t = 1.0 

Pt.  3 Entry 

Pt.  4 Entry 

accelerations 

t = 1.0 

Pt.  1 Entry 

Pt.  4 Entry 

DISPLACEMENTS 
t = 2.0 

Pt.  5 Entry 

Pt.  8 Entry 

Pt.  9 Entry 

VELOCITIES 
t = 2.0 

Pt.  3 Entry 

Pt.  4 Entry 

ACCELERATIONS 
t = 2.0 

Pt.  1 Entry 

Pt.  4 Entry 

DISPLACEMENTS 
t = 3.0 

Pt.  5 Entry 

Pt.  8 Entry 

Pt.  9 Entry 

velocities 

t = 3.0 

Pt.  3 Entry 

Pt.  4 Entry 

accelerations 

t = 3.0 

Pt.  1 Entry 

Pt.  4 Entry 

S0RT1  to  S0RT2 
Process 


displacements 

^ Pt.  5 

> t = 1 .0  Entry 

, t = 2.0  Eritry 

, t = 3.0  Entry 

DISPLACEMENTS 
' Pt.  8 

‘ t = 1 .0  Entry 

. t = 2.0  Entry 

, t = 3.0  Entry 

displacements 

‘ Pt.  9 

' t = 1 .0  Entry 

. t = 2.0  Entry 

, t = 3.0  Entry 

velocities 

Pt.  3 

' t = 1 .0  Entry 

. t - 2.0  Ervtry 

, t = 3.0  Entry 

velocities 

Pt.  4 

' t = 1 .0  Entry 

> t = 2.0  Eritry 

, t = 3.0  Entry 

accelerations 

Pt.  1 

' t = 1 .0  Entry 

» t = 2.0  Entry 

, t = 3.0  Entry 

accelerations 

Pt.  4 

^ t = 1 .0  Entry 

‘ t = 2.0  Entry 

> t = 3.0  Entry 
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4.62.7.3  Physical  Data  Processing  (S0RT1  to  S0RT2) 

All  emphasis  is  placed  on  the  Group,  and  thus  in  performing  S0RT2  a Group  pointer  always 
points  to  the  first  record  of  the  current  Group  being  processed. 

Each  Group  is  processed  and  completed  successively  until  all  Groups  have  been  processed. 

xL.  xL. 

For  each  Group  a loop  of  J passes  is  executed.  During  the  pass  of  this  loop,  the  Data 
Type  (note  4.62.7.2)  present  of  the  Base  Sets  will  be  collected  and  transposed.  The  transpose 
consists  of  determining  how  many  Entries  are  present  for  the  current  Data  Type  and  then  dividing 

XL. 

the  available  core  into  that  many  Regions.  The  Entries  of  each  DATA  record  for  the  Data  Type 
are  distributed  in  Entry  order,  one  each,  to  the  Regions.  At  the  time  each  Entry  is  distributed 
to  a Region,  the  Entry's  first  word  (P0IWT-ID  or  ELEMENT-ID)  is  replaced  by  the  Value  (FREQUENCY 
or  TIME)  in  the  ID-Record  associated  with  the  DATA-Record  from  which  the  Entry  has  come.  At  the 
conclusion  of  each  pass  of  this  loop,  output  to  the  data  block  can  proceed.  For  each  Region  an 
ID-Record  is  written.  This  ID-Record  is  a copy  of  the  input  data  block  ID-Record  in  the  first 
Base  Set  for  the  Data  Type,  having  had  the  Value  (FREQUENCY  or  TIME)  replaced  with  the  P0INT- 
ID  or  ELEMENT-ID  of  the  respective  Region.  The  filled  portion  of  the  Region  is  then  output  as  the 
DATA-Record. 

4.62.7.4  Spill  Logic 


If  during  the  Entry  distribution  the  Regions  can  hold  no  more  Entries,  spill  to  scratch  files 
is  performed.  A Layer  of  records  is  written,  one  record  for  each  Region,  each  time  spill  is 
required. 


Scratch  1 


Scratch  2 


Layer 


Region  1 

Region  N+1 

• 

Region  K-1 

— 4m 

Region  2 

Region  K 
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At  the  output  stage,  if  spill  to  the  scratch  files  has  occurred,  the  Regions  in  the  scratch 
files  are  output  before  the  in-core  Regions. 

4.62.8  Subroutines 

4.62.8.1  Subroutine  Name:  SDR3A 

1.  Entry  Point.  SDR3A 

2.  Purpose:  To  perform  all  S0RT2  operations  when  called  by  the  driver  routine  SDR3. 

3.  Calling  Sequence:  CALL  SDR3A  (0FPFIL) 

0FPFIL  - An  array  of  six  words,  one  for  each  input  data  block,  each  of  which  is  set 
to  zero  before  the  CALL  and  then  reset  by  SDR3A  with  a traceback  positive 
integer  in  the  event  an  error  for  its  respective  data  block  occurred. 

4.62.9  Design  Requirements 

1.  The  design  requires  that  the  largest  DATA-Record  fit  in  core.  If  a problem  is  outputting 
so  many  ELEMENT-ID  or  P0INT-ID  Entries  for  a particular  FREQUENCY  or  TIME  that  core  is 
insufficient,  then  more  subcases  in  conjunction  with  output  request  sets  are  recommended. 

2.  C0MM0N/SDR3ZZ/Z(1) 

This  common  block  defines  open  core  for  the  SDR3  module. 

3.  SDR3  will  open  all  its  scratch  files  (8). 

4.62.10  Diagnostic  Messages 

All  errors  within  SDR3  are  considered  non-fatal-User  Warning  type  errors.  Any  error 
resulting  in  termination  of  the  S0RT2  process  results  in  the  setting  of  an  SDR3  traceback  number, 
an  appropriate  message,  and  a call  to  the  0FP  (Output  File  Processor)  which  in  turn  will  output 
the  data  block  in  S0RT1  format.  If  0FP  is  unable  to  output  the  data  block  it  in  turn  will  call 
the  TABPRT  routine,  and  the  data  block  will  be  printed. 
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4,63  FUNCTIONAL  MODULE  XYTRAN  (XY  - OUTPUT  DATA  TRANSLATOR) 

4.63.1  Entry  Point:  XYTRAN 

To  read  the  first  record  of  the  XYCDB  data  block  (prepared  by  subroutine  IFPIXY  of  Executive 
module  IFPl);  to  set  xy-output  parameters  from  the  serial  specifications  of  this  record;  to  inter- 
pret the  user  curve  requests;  to  locate  in  the  XYTRAN  input  data  blocks  (2  thru  6)  the  data  sets 
containing  the  requested  curve  data;  to  prepare  summary  and  xy-coordinate  data  for  the  requested 
curves  and  output  them  to  the  system  output  printer  and  punch  units;  and  to  prepare  xy-coordinate 
data  and  output  them  to  the  XYTRAN  output  data  block  for  direct  plotting  by  the  XYPL0T  module  of 
those  curve  requests  specified  to  be  plotted. 

4.63.3  DMAP  Calling  Sequences 

4.63.3.1  Static  Analysis  (Rigid  Format  1) 

1.  Stress  data  recovery  output. 

XYTRAN  XYCDB, 0PG2,0QG2,0UGV2,0ES2,0EF2/XYPLTT/C,N, TRAN/C, N,PSET/V,N,PFILE/V,N,CARDN0  $ 

4.63.3.2  Transient  Response  - Direct  Formulation.  (Rigid  Format  9) 

1.  Vector  data  recovery  output. 

XYTRAN  XYCDB, 0UDVC2,,,./XYPLTFA/C,N, FREQ/C, N,DSET/V,N,PFILE/V,N,CARDN0  $ 

2.  Stress  data  recovery  output. 

XYTRAN  XYCDB, 0PPC2,0QPC2,0UPVC2,0ESC2,0EFC2/XYPLTF/C,N, FREQ/C, N,PSET/V,N,PFILE/V,N,CARDN0  $ 

3.  Random  response  output. 

4.63.3.3  Transient  Response  - Direct  Formulation.  (Rigid  Format  9) 

1.  Vector  data  recovery  output. 

XYTRAN  XYCDB, 0UDV2,0PNL2,,,/XYPLTTA/C,N, TRAN/C, N,DSET/V,N,PFILE/V,N,CARDN0  $ 

2.  Stress  data  recovery  output. 

XYTRAN  XYCDB, 0PP2,0QP2,0UPV2,0ES2,0EF2/XYPLTT/C,N, TRAN/C, N,PSET/V,N,PFILE/V,N,CARDN0  $ 

4.63.3.4  Frequency  Response  - Modal  Formulation.  (Rigid  Format  11) 

1.  Vector  data  recovery  output. 

XYTRAN  XYCDB, 0UHVC2,,,,/XYPLTFA/C,N, FREQ/C, N,HSET/V,N,PFILE/V,N,CARDN0  $ 
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2.  Stress  data  recovery  output. 

XYTRAN  XYCOB,0PPC2,0qPC2,0UPVC2,0ESC2,0EFC2  / XYPLTF  / C,N,FREQ  / C.N.PSET  / V,N,PFILE  / 
V,N,CARDN0  $ 

3.  Random  Response  output 

XYTRAN  XYCDB,PSDF,AUT0,,,  / XYPLTR  / C,N,RAND  / C.N.PSET  / V.N.PFILE  / V.N.CARDN0  $ 

4.63.3.5  Transient  Response  - Modal  Formulation  (Rigid  Format  12) 

1.  Vector  data  recovery  output. 

XYTRAN  XYCDB,0UHV2,0PNL2,,,  / XYPLTTA  / C,N,TRAN  / C,N,HSET  / V,N,PFILE  / V,N,CARDN0  $ 

4.63.3.6  Aerodynamic  - Modal  Flutter  Analysis  (Rigid  Format  10) 

1.  VG  curve  output. 

XYTRAN  XYCBD,0VG,,,,  / XYPLTCE  / C,N,VG  / C,N,PSET  / V,N,PFILE  / V,N,CARDN0  $ 

4.63.3.7  Heat  - Transient  Analysis 

1.  XYTRAN  XYCDB,H0PP2,H0QP2,H0UPV2,,H0EF2/HXYPLTT/C,N, TRAN/C, N,PSET/V,N,PFILE/V,N,CARDN0  $ 


4.63.4  Input  Data  Blocks 


XYCDB 

0UDVC2 

0PPC2 

0QPC2 

0UPVC2 

0ESC2 

0EFC2 

PSDF 

AUT0 

0UDV2 

0PNL2 

H0PP2  \ 
0PP2  ( 

H0QP2  I 
0QP2  i 

0UPV2 

0ES2 

H0EF2  ( 
0EF2  I 

0UHVC2 


XY  Output  Control  Data  Block. 

Output  displacement  vector  requests  (solution  set,  S0RT2,  complex). 

Output  load  vector  requests  (solution  set,  S0RT2,  complex). 

Output  forces  of  single-point  constraint  requests  (solution  set,  S0RT2,  complex). 
Output  displacement  vector  requests  (p  set,  S0RT2,  complex). 

Output  element  stress  requests  (S0RT2,  complex). 

Output  element  force  requests  (S0RT2,  complex). 

Power  Spectral  Density  Table. 

Autocorrelation  function  table. 

Output  displacement  vector  requests  (solution  set,  S0RT2,  real). 

Output  nonlinear  load  requests  (solution  set,  S0RT2,  real). 

Output  load  vector  requests  (p  set,  SORT,  real). 

Output  forces  of  single-point  constraint  (p  set,  S0RT2,  real). 

Output  displacement  vector  requests  (p  set,  S0RT2,  real). 

Output  element  stress  requests  (S0RT2,  real). 

Output  element  force  requests  (S0RT2,  real). 

Output  displacement  vector  requests  (solution  set,  S0RT2,  complex). 
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4.63 


4.63 


0UHV2 

0VG 

H0UPV2 

0P62 

0QG2 

0UGV2 


Output  displacement  vector  requests  (solution  set,  S0RT2,  complex). 
Output  VG  curves  (S0RT2 

Output  temperature  vector  requests  (p  set,  S0RT2,  real). 

Output  load  vector  requests  (g  set,  S0RT2,  real). 

Output  forces  of  single-point  constraint  requests  (g  set,  S0RT2,  real). 
Output  displacement  vector  requests  (S0RT2,  real). 


5 Output  Data  Blocks 


XYPLTFA 

XYPLTF 

XYPLTR 

XYPLTTA 

XYPLTT 

HXYPLTT 


XY-Plot  output  requests  prepared  by  XYTRAN  for  direct  plotting  by  XYPL0T. 


6 Parameters 


CARDN0 

PFILE 

FREQ 

TRAN 

RAND 

DSET 

PSET 

HSET 


Input  and  output-integer-default  value  = 0.  CARDN0  is  incremented  by  one  and 
punched  in  columns  73-80  of  each  card  punched  by  XYTRAN. 

Input  and  output-integer-default  value  = 0.  PFILE  is  incremented  by  one  for 
each  frame  XYTRAN  defines  for  output  by  XYPL0T. 

Input-BCD-2-word-constant  distinguishes  the  problem  as  frequency  response. 
Input-BCD  2-word-constant  distinguishes  the  problem  as  transient  response. 
Input-BCD  2-word-constant  distinguishes  the  problem  as  random  response. 

Input-BCD  2-word-constant  distinguishes  the  input  vector  as  the  d set. 

Input-BCD  2-word-constant  distinguishes  the  input  vector  as  the  p set. 

Input-BCD  2-word-constant  distinguishes  the  input  vector  as  the  h set. 
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4.63.7  Method 

4.63.7.1  The  following  diagram  illustrates  the  process  of  serially  reading  through  the  XYCDB 
data  block's  first  record  and  performing  the  XYTRAN  data  processing. 


Figure  1.  Flowchart  for  reading  the  first  record  of  XYCDB 
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4.63.7.2  Phase  I 

In  Phase  I the  XYCDB  data  block  is  further  read  to: 

1.  Determine  the  type  of  XY-output  curves  desired.  (Response,  Autocorrelation, 
or  Power  Spectral  Density  Function); 

2.  Determine  the  type  of  data  (displacements,  stresses,  etc.,)  and  subcases 
desired; 

3.  Determine  which  types  of  XY-output  are  requested  of  XYPUNCH,  XYPEAK,  XYPRINT, 

XYPAPL0T,  and  XYPL0T  (XY-output  requests  are  described  in  section  4 of  the  User's  Manual). 

4.  Determine  the  point-component  curve  relationships  for  a frame. 

The  data  for  all  curves  of  a given  frame  (upper  and  lower,  or  whole)  are  then  collected 
and  stored  in  core. 

4.63.7.3  Phase  II 

The  operations  of  Phase  II  involve  the  analysis  of  the  curve  data  in  conjunction  with  the 
XY-output  specifications  stored  to  this  point  as  a set  of  values,  and  the  computation  and 
setting  of  dynamic  curve  limits.  When  all  processing  is  complete,  output  to  the  printer,  the 
punch,  and  the  XYTRAN  output  data  block  is  accomplished. 

4.63.8  Subroutines 

4.63.8.1  Subroutine  Name:  XYDUMP 

1.  Entry  Point:  XYDUMP 

2.  Purpose:  To  perform  phase  II  as  described  above. 

3.  Calling  Sequence:  CALL  XYDUMP  (lARG.ITYPE) , 

lARG  - 201,  GIN0  output  data  block  number. 

ITYPE  - 1 for  RESP0NSE,  2 for  PSDF,  3 for  AUT0. 

4.63.8.2  Subroutine  Name:  XYFIND 

1.  Entry  Point:  XYFIND 

2.  Purpose:  To  position  one  of  the  XYTRAN  input  data  blocks  (2  thru  6)  to  the 

beginning  of  a data  set  record  for  a particular  ELEMENT-ID  or  POINT-ID  of  a specific 
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4.63 


1 


4.63 


data  type. 

3.  Calling  Sequence:  CALL  XYFIND  ($np$n2, $n3, MAJID, IDZ) 

n^  = Return  taken  in  the  event  an  end-of-file  is  sensed  when  an  E0F  should  not  be  hit. 

n2  = Return  taken  in  the  event  an  end-of-record  is  sensed  when  an  end-of-record. 

should  not  be  hit. 

n^  = Return  taken  if  the  data  requested  could  not  be  found. 

MAJID  = An  array  of  the  eleven  data  type  major-IDs. 

IDZ  = Pointer  into  the  Z array  of  open  core  to  an  ELEMENT-ID  or  POINT-ID. 

8.3  Subroutine  Name:  XY0UT 


1.  Entry  Point:  XY0UT 


2.  Purpose:  To  output  to  the  system  printer  unit  an  xy-output  summary  or  to  output 

to  the  system  printer  and/or  punch  unit(s)  an  xy-output  coordinate  pair. 

3.  Calling  Sequence:  CALL  XY0UT  (IARG,BUFF) 

t <0  implies  print  summary. 

IAR6  = ) 

( ^0  implies  print  and/or  punch  coordinate  pair. 

BUFF  = Array  containing  data  to  be  output. 

8.4  Subroutine  Name:  XYL06  • 

1.  Entry  Point:  XYL0G 

2.  Purpose:  To  analyze  the  input  arguments  VI  and  V2  and  to  reset  these  arguments  to 

powers  of  ten  bracketing  the  original  values.  An  example  follows. 


VI 

= 

0.5 

V2 

= 

5.6 

lARG 

= 

Undefined 

VI 

= 

0.1 

V2 

= 

10.0 

lARG 

= 

2 

Input  arguments. 


Output  arguments. 
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3.  Calling  Sequence:  CALL  XYL0G(V1 ,V2,IARG) 

VI  = Smaller  input  real  variable. 

V2  = Large  input  real  variable. 

lARG  = Number  of  logrithmic  cycles  needed  to  bracket  VI  and  V2.  (Set  by  XYL0G  before 
return) 

4.63.8.5  Subroutine  Name:  XYTICS 

1.  Entry  Point:  XYTICS 

2.  Purpose:  To  accept  user-specified  xy-plot  edge-tic  specifications  and  compute  actual 

edge-tic  beginning  and  ending  values,  their  increments  to  the  successive  edge-tics,  and 
their  scientific  values  with  powers  of  ten. 

3.  Calling  Sequence:  CALL  XYTICS  ( I0UT,0UT,IARG1 ,R1 ,R2 ,ISKIP,L0G) 

I0UT  = Integer  output  array  ) 

> One  and  the  same  array. 

0UT  = Real  output  array  ) 

lARGl  = Number  of  edge-tic  divisions  desired  by  user. 

R1  = Minimum  coordinate  value  of  edge. 

R2  = Maximum  coordinate  value  of  edge. 

ISKIP  = Edge-tic  skip  count  indicating  which  edge-tics  are  to  have  a value  printed 
along  with  the  tic-mark. 

L0G  = Number  of  logrithmic  cycles.  If  zero,  linear  scale  is  to  be  calculated. 

4.63.8.6  Subroutine  Name:  XYPRPL 

1.  Entry  Point:  XYPRPL 

2.  Purpose:  To  process  the  XYPAPL0T  request.  The  XYTRAN  output  data  block  is  read  and 

a proper  plot  is  generated  for  each  XYPAPL0T  request.  Frame  numbers  are  printed  as  well 
as  titles,  and  the  data  are  scaled  to  the  size  of  the  page  width.  Log  requests  should  not 
be  used. 

3.  Calling  Sequence:  CALL  XYPRPL 

4.63.8.7  Subroutine  Name:  XYCHAR 

1.  Entry  Point:  XYCHAR 

2.  Purpose:  To  store  the  points  to  be  plotted  into  the  appropriate  line  of  the  output  buffer. 
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3.  Calling  Sequence:  CALL  XYCHAR(IR0W,IC0L,CURVCH) 

IR0W  = Y coordinate  of  the  point  to  be  plotted 

IC0L  = X coordinate  of  the  point  to  be  plotted 

CURVCH  = Symbol  to  be  used  for  the  point 

4.63.8.8  Subroutine  Name:  XYGRAF 

1.  Entry  Point:  XYGRAF 

2.  Purpose:  To  print  the  proper  plot  for  a frame. 

3.  Calling  Sequence:  CALL  XYGRAF(GRAPH) 

GRAPH  = Frame  border  data  for  the  plot 

4.63.9  Design  Requirements 

1.  The  XYTRAN  design  requires  that  for  a particular  frame  all  of  the  curve  data  for  the 
curves  of  that  frame  fit  in  core.  If  this  condition  is  not  possible,  one  curve  at  a time 
will  be  cancelled,  with  a warning  message  output,  until  the  condition  is  met  for  the  frame 
in  question. 

2.  The  following  C0MM0N  blocks  are  used  in  the  subroutines  of  module  XYTRAN. 

a.  C0MM0N/XYW0RK/ 

This  common  block  contains  variables  required  in  the  processing  of  the  user  output 
requests. 

b.  C0MM0N/XYTRZZ/ 

Defines  open  core  for  the  module 

4.63.10  Diagnostic  Messages 

All  XYTRAN  diagnostic  messages  are  of  a USER-WARNING  nature.  There  are  no  FATAL  type 
error  diagnostics.  XYTRAN  is  in  all  cases  expected  to  make  a normal  return. 
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4.64  FUNCTIONAL  MODULE  RAND0M  (RANDOM  ANALYSIS  MODULE) 

4.64.1  Entry  Point:  RAND0M 

4.64.2  Purpose 

To  compute  power  spectral  density  functions  and  autocorrelation  functions  from  frequency 
response  data. 

4.64.3  DMAP  Calling  Sequence 

RAND0M  XYCDB,DIT,PSDL,0UPVC2,0PPC2,0QPC2,0ESC2,0EFC2,CASECC/PSDF,AUT0/V,N,N0RAND  $ 


4.64.4  Input  Data  Blocks 


XYCDB 

DIT 

PSDL 

0UPVC2 

0PPC2 

0QPC2 

0ESC2 

0EFC2 

CASECC 


- XY  Plotter  Control  Data  Block. 

- Direct  Input  Tables. 

- Power  Spectral  Density  List. 

- Output  displacement  vector  requests  (p  set,  S0RT2,  complex). 

- Output  load  vector  requests  (p  set,  S0RT2,  complex). 

- Output  forces  of  single-point  constraint  (p  set,  S0RT2,  complex). 

- Output  element  stress  requests  (S0RT2,  complex). 

- Output  element  force  requests  (S0RT2,  complex). 

- Case  Control  Data  Table. 


Notes: 


1.  If  XYCDB  is  purged,  RAND0M  returns. 

2.  DIT  cannot  be  purged  if  PSDL  points  to  tables  in  DIT. 

3.  If  PSDL  is  purged,  RAND0M  returns. 

4.  0UPVC2,  0PP2,  0QP2,  0ESC2,  0EFC2  must  contain  the  requested  outputs. 

5.  CASECC  cannot  be  purged. 


4.64.5  Output  Data  Blocks 


PSDF  - Power  Spectral  Density  Table. 

AUT0  - Autocorrelation  function  table. 

Notes:  PSDF  and  AUT0  cannot  be  purged. 
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4.64.6  Parameters 

N0RAND  - Output-integer-no  default.  N0RAND  = -1 , if  no  random  analysis  is  requested; 

0,  otherwise. 

4.64.7  Method 

4.64.7.1  Overview  of  the  Method 

The  Random  Analysis  Module  calculates  power  spectral  density  functions,  autocorrelation 
functions  and  mean  deviations  for  selected  displacements,  loads,  forces  of  single-point  constraint, 
and  element  forces  and  stresses. 


4.64.7.2  Module  Initialization 


The  following  4 steps  of  subroutine  RAND7  comprise  module  initialization. 

1.  The  XYCDB  must  be  present  or  RAND0M  returns. 

2.  A set  of  RANDPS  Bulk  Data  cards  from  PSDL  must  be  selected  in  CASECC  or  RAND0M  returns. 

3.  The  frequency  list  is  extracted  from  the  first  non-empty  data  file. 

4.  The  selected  RANDPS  cards  are  read  in  and  stored.  The  tables  referenced  are 
prepared  by  subroutine  PRETAB.  The  RANDPS  (see  section  2.4  of  the  User's  Manual)  card 
defines  the  functions 


Sab(f)  = (X  + ly)  F^(f) 


(1) 


where  a is  the  subcase  id  of  the  excited  load  set;  b is  the  subcase  id  of  the  applied 
load  set  (a  _<  b);  (x,y)  is  a complex  number  such  that  if  a = b,  then  y must  be  0.0;  and 
K is  the  table  identification  number  of  a TABRNDl  Bulk  Data  card  which  defines  F|^(f), 
a power  spectral  density  as  a tabular  function  of  frequency. 


The  power  spectral  density  for  gust  turbulence  can  also  be  supplied  on  a TABRNDG  card.  Thus 

c 2L  1 + 2(p+1)(kwL/U)^ 

■ N U . .+3/2 

[1  + (kwL/U)^]P 

where  W^,  L,  U,  p and  k are  user  supplied  data  and  W = 27rf. 

If  on  any  RANDPS  card  a b,  the  equations  are  called  coupled,  otherwise  they  are  called  un- 
coupled. 
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4.64.7.3  The  Uncoupled  Case 


The  following  eight  steps  are  accomplished  in  subroutine  RANDS. 

1.  The  XYCDB  is  read  for  a list  of  requested  points.  This  list  is  stored  in  core. 
(Subroutine  RAND6). 

2.  Core  is  allocated  for  as  many  points  as  possible  at  one  word  per  frequency.  If  all 
points  will  not  fit  in  core,  another  pass  will  be  made  on  this  file. 

3.  Compute  at  each  load  change  (subroutine  TAB). 

aa 

4.  Read  in  the  data  from  the  S0RT2  data  block  and  compute: 

Sjjf)  = |Uj(f)|\3(f)  , (3) 

where  Uj(f)  is  the  response  of  the  point  at  frequency  f. 

5.  These  are  summed  over  all  loads  to  form  the  power  spectral  density  function: 


Sj(f)  ■ I Sj,(t)  . 


(4) 


where  'a'  runs  over  all  subcase  ID's  on  the  RANDPS  cards. 


6.  When  all  subcases  for  the  points  in  core  have  been  processed,  the  mean  response  q^  is 
calculated  in  subroutine  RAND3  for  each  point  j: 

■ f,j'"  . (5) 

where  N = number  of  frequencies.  The  mean  response  is  output  with  both  the  PSDF  and 
the  autocorrelation  function. 

The  zero  crossing  N^  is  also  computed  and  output  with  the  mean  response  q^.  N^  is  de- 
fined by 


/*w^S.(w)dw  / f S.(w)dw 
0 0 _ 


(6) 


The  integral  in  the  denominator  is  already  calculated  in  this  module,  and  is  related  to 
the  "mean  square  response" 


— o'  °° 

q?  = Ri(o)  = /s,-(f)df  ; 

»J  J Q J 

thus,  the  numerator  must  be  integrated.  Compute 

r?  = /Vs.(f)df  , 

J 0 
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i 
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a=  (3f2.2f.f.,^  ) 

> (8b) 

6=  (f?+2f.f.,,  +3f2^^)/6  ) 

Note  that  if  a and  3 are  1.0,  the  sum  for  rT  would  become  the  formula  for  Then 
No  = is  the  quantity  to  be  output. 

7.  If  PSDF  for  point  j is  requested,  one  ID  and  data  record  are  written  on  the  PSDF  data 
block. 

8.  If  an  autocorrelation  function  is  requested  for  point  j,  the  Sj(f)  are  transformed  to 
the  time  domain  to  give  the  autocorrelation  function: 


N-1 


i 1 

rsi(f,*,)  - s,(f,)-| 

^ m 

[cos(27tt^  ) - COS(27TT^f^  )]  + 


= ^ tSj(f+l)  sin(2iTT/.^^)  - S.(f.)  sin(2TVT^f.)]| 


(9) 
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where  i is  the  index  of  the  frequencies;  N is  highest  frequency;  is  defined  by 

^ ni  / V 

m 0 M max  o 

where  is  the  starting  time  lag,  M is  the  number  of  time  lag  intervals,  and 

is  the  maximum  time  lag  (o  < Tq  < of  which  are  defined  on  a RANDTl  Bulk  Data 

card.  Note  that  if,  in  Equation  9,  = 0,  then 

= V 

If  more  points  for  this  data  block  remain  to  be  done,  the  file  is  rewound  and  another 
pass  is  made.  If  additional  file  types  are  requested,  steps  1 through  8 outlined  above  are 
repeated.  This  completes  the  uncoupled  case  processing. 

4.64.7.4  The  Coupled  Case 

The  following  6 steps  are  accomplished  in  subroutine  RANDS. 

1.  A list  of  unique  subcase  id's  is  extracted  from  the  RANDPS  cards. 

2.  The  XYCDB  is  read  for  a list  of  requested  points.  This  list  is  stored  in  core 
(subroutine  RAND6). 

3.  An  array  of  core  is  reserved  for  each  point  as  follows: 

Let  NFREQ  = the  number  of  frequencies  used  and  NUN0  be  the  number  of  unique  subcase  id' 
mentioned  on  the  RANDPS  cards.  Each  point  requires  2 NFREQ*NUN0  words  of  storage. 

As  many  points  as  possible  are  done  at  once.  The  data  file  is  read  and  the  data  are 
stored  (real/imaginary)  for  each  point  until  all  subcases  for  all  points  in  core  have 
been  processed. 

4.  For  each  RANDPS  card  is  looked  up  for  all  f (subroutine  TAB). 

For  each  point  in  core  sl(f)  is  computed: 

j 

where  H.  (f)  denotes  the  value  of  point  j for  subcase  a.  The  bar  over  the  third 
ja 

factor  in  Equation  12  denotes  the  complex  conjugate.  These  sl(f)  are  summed  over  all 

J 

RANDPS  cards  to  form  S.(f): 

J 
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Sj(f)  . |ISHj,(f)S,^(f)H.j,(f)|.  (IS) 

Note  that  the  complex  conjugate. 

5.  The  mean  response  and  autocorrelation  functions  are  computed  as  in  Equations 
9,  10,  and  11 . 

6.  If  more  points  for  this  file  remain  to  be  done,  the  file  is  rewound  and  another 
pass  is  made. 

If  additional  file  types  are  requested,  steps  1 thru  6 are  repeated.  If  not,  the 
coupled  case  processing  is  complete. 

4.64.8  Subroutines 

4.64.8.1  Subroutine  Name:  RAND7 

1.  Entry  Point:  RAND7 

2.  Purpose;  To  initialize  for  both  the  coupled  and  uncoupled  cases. 

3.  Calling  Sequence:  CALL  RAND7(IFILE,NFILE,PSDL,DIT,IC0UP,NFREQ,NPSDL,NTAU,LTAB, 

CASECC,XYCDB). 

PSDL,DIT,CASECC,XYCDB  are  GIN0  file  numbers  for  their  respective  data  blocks  - 

- integer  - input. 

IFILE  - Array  of  GIN0  file  numbers  of  data  files  to  RAND0M  - integer  - input. 

NFILE  - Number  of  files  in  IFILE  - integer  - input. 

IC0UP  - -1  No  RAND0M  analysis  to  be  done. 

- 0 uncoupled  algorithm  to  be  used  - integer  - output. 

- 1 coupled  algorithm  to  be  used. 

NFREQ  - Number  of  frequencies  - integer  - oUtpOt. 

NPSDL  - Number  of  RANDPS  cards  selected  - integer  - output. 

NTAU  - Number  of  t's  on  RANDTl  cards  - integer  - output. 

LTAB  - Amount  of  core  taken  up  by  table  storage  - integer  - output. 

C0MM0N/RANDMX/ 

RAND7  stores  most  of  its  output  data  in  /RANDMX/.  See  core  storage  layout  of  /RANDMX/ 
(section  4.64.9). 
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4.64.8.2  Subroutine  Name:  RAND5 

1.  Entry  Point:  RANDS 

2.  Purpose:  To  compute  uncoupled  PSDF  and  AUT0  numbers. 

3.  Calling  Sequence:  CALL  RAND5(NFREQ,NPSDL,NTAU,XYCDB,LTAB,IFILE,PSDF,AUT0,NFILE) 

PSDF,AUT0  - 6IN0  file  numbers  of  respective  files  - integer  -input. 

Other  variables  are  as  in  RAND7  (Section  4.64.8.1). 

4.64.8.3  Subroutine  Name:  RANDS 

1.  Entry  Point:  RANDS 

2.  Purpose:  To  compute  coupled  PSDF  and  AUT0  nunfcers. 

3.  Calling  Sequence:  CALL  RANDS  (Same  as  RANDS). 

4.64.8.4  Subroutine  Name:  RANDl 

1.  Entry  Point:  RANDl 

2.  Purpose:  To  put  one  0FP  type  ID  on  PSDF  and  AUT0. 

3.  Calling  sequence:  CALL  RANDl  (FILE, MID, TYPE, ID, C0MP, Q) . 

FILE  - 6IN0  file  number  of  output  file  - integer  - input. 

MID  - File  type  (PSDF  = 4001  ,AUT0  = 4002)  - integer  - input. 

TYPE  - Curve  type  - DISP,VEL0,ACCE,L0AD,SPLF,ELF0,  or  STRE  - BCD,  input. 

ID  - Point  id  - integer  - input. 

C0MP  - Point  component  - integer  - input. 

Q - Mean  deviation  - real  - input. 

4.64.8.6  Subroutine  Name:  RAND2 

1.  Entry  Points:  RAND2,  RAND2A 

2.  Purpose:  To  read  a S0RT2  type  output  file  until  it  finds  a point  id  selected  by 

the  user  in  a list. 

3.  Calling  Sequence:  CALL  RAND2  (FILE,ILIST,L0AD,IF,LEN,LLIST,  DATA) 

CALL  RAND2A  (DATA) 

FILE  - GIN0  file  number  of  the  S0RT2  data  file  - integer  - input. 

ILIST  - List  of  user  desired  points  - input  and  output. 
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LEN 


L0AD 


IF 


Subcase  id  of  first  data  record  in  ILIST  - integer  - output. 

Format  of  data  - real /imaginary  or  magnitude/phase  - integer  - output. 
Length  of  the  data  line  for  this  record  - integer  - output. 


LLIST  - Length  of  the  ILIST  array. 

DATA  - Data  array  - input. 

4.64.8.6  Subroutine  Name:  RANDS 

1.  Entry  Point:  RANDS 

2.  Purpose:  To  compute  the  mean  response  q. 

S.  Calling  Sequence:  CALL  RANDS  (F,S,Q,N) 

F - Array  of  frequencies  - real  - input. 

S - Array  of  power  spectral  density  functions  - real  - input. 

Q(l)  - Mean  response  - real  - output. 

Q(2)  - Number  of  zero  crossings  - real  - output. 

N - Length  of  the  F and  S arrays  - integer  - input. 

4.64.8.7  Subroutine  Name:  RAND4 

1.  Entry  Point:  RAND4 

2.  Purpose;  To  compute  the  autocorrelation  function  R(t). 

S.  Calling  Sequence:  CALL  RAND4  (F,SJAU,R,N) 

F,S,N  are  as  described  in  RANDS. 

TAU  - T point  at  which  R is  to  computed  - real  - input. 

R - Autocorrelation  function  at  TAU  - real  - output. 

4.64.8.8  Subroutine  Name:  RAND6 

1.  Entry  Point:  RAND6 

2.  Purpose:  To  extract  from  the  XYCDB  a list  of  user  requested  points  for  RAND0M  output. 

S.  Calling  Sequence:  CALL  RAND6  (XYCDB,BUFFER.NP0INTJZ. INPUT) 

XYCDB  - GIN0  file  number  of  the  XYCDB  data  block  - integer  - input. 

BUFFER  - GIN0  buffer  - array  - input. 

NP0INT  - Number  of  points  requested  by  the  user  for  this  file  - integer  - output. 
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IZ  - Array  in  which  RAND6  stores  the  list  of  requests  - integer  - output. 

INPUT  - GIN0  file  number  of  data  file  for  which  list  of  request  is  desired. 

4.64.9  Design  Requirements 


Open  Core  at  /RANDMX/  is  arranged  as  follows: 


C0MM0N/RANDMX/ 


^NFREQ 

RANDPS 

Card 

Data 

^1 

t 

■^NTAU 

Table  Data 
From  PRETAB 


NFREQ  frequencies 


5 words  per  card: 

Subcase  ID 
Subcase  ID 
X 
Y 

Table 


NPSDL  cards 


NTAU  Taus 


LTAB  Table  data 


The  above  data  are  placed  in  core  by  RAND7  and  are  the  same  for  both  the  coupled  and 
uncoupled  cases.  The  remaining  data  are  core  dependent. 

Uncoupled  case  data: 


^aa^*"NFREQ^ 


Requests  from 
RAND6 


NP0INT  of 
them  5 words/ 
point 


These  are  evaluated  each  time  the 
Subcase  id  changes. 


1 ) Data  Block 

2)  Point  ID 

3)  Component 

4)  Request  Type 

1 = PSDF 

2 = AUT0 

3 - Both 

5)  Destination 

1 = Print 

2 = Punch 

3 = Both 

4 = Plot 
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NFREQ  point  in  the 

request  list  (spill  is  possible 
here) 

NFREQ 


3 GIN0  buffers 


Coupled  case  data: 


These  are  re-evaluated  for  each  RANDPS  card 


Unique  subcase  ID's  from  RANDPS  cards 
NUNQ  of  them 

As  in  uncoupled  request  list 
2*NFREQ 


Repeated  for  each 
NUNQ  \ point  in  request 
of  H's  / list  (spill 

possible  here). 


NFREQ 


3 GIN0  buffers 
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4.64,10  Diagnostic  Messages 

RAND0M  is  defined  as  an  output  processor  and  thus  must  not  stop  due  to  user  innut  error. 
Hence  all  messages  are  of  a warning  nature. 

Random  may  issue  message  3048. 
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4.65  FUNCTIONAL  MODULE  TRD  (TRANSIENT  ANALYSIS  - DISPLACEMENT) 

4.65.1  Entry  Point:  TRD 

4.65.2  Purpose 

To  solve  the  transient  problem. 


4.65.3  DMAP  Calling  Sequence 


TRD 


CASECC,TRL,NLFT,DIT 


jKDD( 

jBDDi 

(mdd/ 

pd| 

jUDVT/ 

jPNLD/ 

|KHH|’ 

‘|BHHJ’ 

^|MHHp; 

ph|’ 

‘)UHVTJ^ 

•|pnlh| 

/ V,N,F0RM  / V,N,N0UE  / 


V,N,N0NCUP/V,N,NC0L/C,Y,ISTART  $ 


4.65.4  Input  Data  Blocks 


CASECC 

TRL 

NLFT 

DIT 

KHH 

KDD 

BHH 

BDD 

MHH 

MDD 

PH 

PD 


Case  Control  Data  Table. 

Transient  Response  List. 

Non-linear  Forcing  Table. 

Direct  Input  Tables. 

Modal  stiffness  matrix  - h set. 

Dynamic  stiffness  matrix  - d set. 

Modal  damping  matrix  - h set. 

Dynamic  damping  matrix  - d set. 

Modal  mass  matrix  - h set. 

Dynamic  mass  matrix  - d set. 

Transient  Load  Matrix. 

Linear  dynamic  load  matrix  for  transient  analysis  - d set. 


Notes: 

1.  CASECC  cannot  be  purged. 

2.  TRL  cannot  be  purged. 

3.  NLFT  cannot  be  purged  if  nonlinear  loads  are  selected  in  CASECC. 

4.  AT  least  one  of  the  matrices  KHH,  BHH,  or  MHH  must  exist. 
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4.65.4  Output  Data  Blocks 


UHVT  - Modal  transient  solution  vectors  - h set. 

PNLH  - Nonlinear  loads  in  modal  transient  problem  - h set. 

UDVT  - Displacement,  velocity,  and  acceleration  vector  matrix  in  a transient  analysis 
problem  - d set. 

PNLD  - Non-linear  loads  in  a transient  problem  - d set. 

Notes: 

1.  UHVT  cannot  be  purged. 

2.  PNLH  cannot  be  purged  if  nonlinear  loads  are  selected. 

3.  UHVT  will  be  read  if  it  is  not  empty  and  the  continue  mode  will  be  entered. 

4.  KHH,  MHH,  BHH,  PH,  UHVT,  and  PNLH  fields  will  contain  KDD,  MDD,  etc.,  for  the 
direct  solution. 

4.65.6  Parameters 


F0RM  - Input-BCD-no  default.  If  F0RM  = M0DAL  a modal  formulation  will  be  used,  otherwise 
a direct  formulation  will  occur. 

N0UE  - Input-integer-no  default.  N0UE  indicates  the  number  of  extra  points  used  in  non- 
linear load  formulation. 

N0NCUP  - Input-integer-no  default.  If  N0NCUP  = -1  an  uncoupled  solution  will  be  done. 

NC0L  - Input/Output-integer-no  default.  If  NC0L  = 0,  the  initial  time  for  the  solution 
is  0.0.  If  NC0L  > 0,  the  solution  is  continued  from  the  specified  output  time  of 
the  previously  checkpointed  run.  (See  Section  11.3.2  of  the  Theoretical  Manual 
for  details. ) 

ISTART  - Input-integer-default  = -1 . If  ISTART  < 0,  the  first  starting  method  is  used. 

If  ISTART  ^0,  the  second  (or  alternate)  starting  method  is  used.  (See  Section 
11.3.1  of  the  Tneoretical  Manual  for  details.) 


4.65.7  Method 


4.65.7.1  Overview  of  the  Method 

The  Transient  Analysis  module  integrates,  over  specified  time  periods,  equations  of  motion  of 
a structure  having  time  dependent  loads.  A general  structure  may  be  used  with  real  stiffness, 
mass  and  damping  matrices.  Non-linear  effects  may  be  calculated  by  specifying  certain  loading 
functions  on  the  free,  physical  displacements  of  the  system.  This  analysis  is  particularly  useful 
when  shock  loads  are  applied  to  a structure.  It  is  also  more  efficient  than  frequency  analysis  or 
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complex  eigenvalue  analysis  when  the  applied  loads  are  well  defined  and  the  frequency  characteris- 
tics are  secondary  to  damping  and  peak  load  characteristics.  This  analysis  is  also  the  only 
dynamic  general  system  analysis  which  allows  non-linearities. 

TRD  will  also  continue  the  solution  from  some  previous  run.  This  can  be  used  to  recover  from 
time-to-go  failures  or  to  extend  the  analysis.  (See  Section  11.3.2  of  the  Theoretical  Manual  for 
details. ) . 

4.65.7.2  Logical  Phases  of  Solution 

1.  The  time  increment  from  the  TRL  data  block  is  used  to  identify  the  times  at  which  the 
solution  is  obtained.  The  initial  conditions  are  assembled. 

2.  The  left  hand  matrix  of  the  general  integration  equation.  Equation  15  below,  and  the  two 
right  hand  matrices  are  assembled.  The  triangular  decomposition  of  the  left  hand  matrix  is 
performed. 

3.  The  solution  loop  of  the  program  may  now  proceed  until  the  time  increment  is  changed. 

a.  Compute  the  non-linear  load  for  this  time  step.  Add  this  load  to  the  load  vectors. 

b.  Multiply  the  displacement  vectors  into  the  right  hand  matrices  and  add  the  resultant 
vectors  to  the  applied  load  vector. 

c.  Solve  for  the  left  hand  displacement  vector  by  performing  a back  substitution  into 
the  triangular  decomposition  of  the  left  hand  matrix.  If  this  is  an  output  time  step,  the 
velocity  and  acceleration  are  computed  using  differences  of  the  displacement  vectors. 

d.  If  the  time  increment  changes  for  the  next  time  step,  the  program  returns  to  Step  2. 

If  the  increment  is  the  same  steps  3a  thru  3d  are  repeated. 

4.  If  the  equations  are  in  the  uncoupled  modal  formulation  form  (i.e.,  no  transfer  functions, 
direct  input  matrices,  or  non-linear  functions),  the  solution  logic  is  much  faster.  For  each 
coordinate,  the  displacement,  velocity  and  acceleration  may  be  computed  independently  versus 
time.  Steps  2 and  3 are  omitted. 
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4.65.7.3  Algorithms  for  Each  Logical  Phase 

1.  Solution  of  the  coupled  equations:  The  matrix 

[D]  =(-^[M]  +1[K]]  . 

\At"  2At  3 / 

is  formed  and  decomposed.  The  matrix 


[C] 


is  formed  and  saved.  The  matrix 


[E] 


— CM]  + -!-  [B] 
At^  2At 


(1) 


(2) 


(3) 


is  formed  and  saved. 

The  solution  loops  then  proceed  until  a time  step  change  occurs. 

The  initial  conditions  presented  to  the  integration  are  {u^},  {u^},  {u_-j},  {P^}  and  {P_-|}, 
where  {u^}  and  {u^}  are  the  starting  displacement  and  velocity  vectors,  respectively,  specified 
by  the  user.  Two  alternative  starting  methods  have  been  provided,  each  having  its  own  advan- 
tages. (See  Section  11.3.1  of  the  Theoretical  Manual  for  details.)  In  both  the  methods, 

{u_^-|}  and  calculated  by  the  equations 

{u_-|}  = {Uq}  - {Uq}  At  , (4) 

and 

{P.^}  = [KKu^^}  + . (5) 

The  difference  between  the  two  starting  methods  lies  in  the  different  manner  in  which  {P^} 
is  computed.  In  the  first  method  (ISTART  < 0),  the  load  specified  by  the  user  at  t = 0 is 
never  used  but  is  replaced  by 

{Pq}  = + [B]{ij,}  . (6) 
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The  starting  equation  for  this  method  is 

[DKu^}  = + Pq  + P^}  + {N^}  + [CKu^}  + [El{u_i>  . (7) 

where  {N^}  is  the  non-linear  load  calculated  from  {u  }. 

0 0 

In  the  second  (or  alternative)  starting  method  (ISTART  ^ 0),  the  user  input  load  at  r = 0 

is  included.  Thus 

= I ^Pou>  + {u^}  , (8) 

where  (Pqjj)  is  the  user-defined  load  at  r = 0. 

The  starting  equation  for  this  method  is 

+ 2Pi)  + {N„}  - 1 [KKu^>  + ^ ^ [MKu,  + G,At}  (9) 

At 

{U2>  through  {u^}  are  now  computed  from  the  general  equation: 

[D]  {u^^2>  = i " Pi+1  ^ Pi+2>  " 

+ [C]  + [E]  {u^}.  (10) 

If  non-linear  loads  are  selected,  they  are  evaluated  directly  at  the  solution  points  for 
time  step  by  the  following  process.  N0LIN1  loads  are  computed  as, 

P^(t)  = ST(Uj(t)),  (11) 

where  T is  a user  selected  table,  i is  the  loaded  solution  point,  j is  the  deflecting 
point,  u.  is  the  previously  computed  displacement  at  point  j.  N0LIN2  loads  are  computed 

j 

as, 

P.(t)  = S Uj  (t)  U|^  (t),  (12) 

where  i,  j,  and  k are  as  in  N0LIN1  loads. 

N0LIN3  loads  are  computed  as, 
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S {Uj(t)}A,  Uj(t)>0 


P.(t)  = 


(13) 


0 , Uj(t)<0 


N0LIN4  loads  are  computed  as 


-S  {-u,(t)}A,  u (t)<  0 


P^(t) 


(14) 


0 


u^ (t)  > 0. 


The  user  specifies  the  set  of  times  at  which  data  is  to  be  saved.  If  the  current  time  is 
an  output  time,  the  displacement  vector  for  time  t = t^  is  output. 

The  velocity  vector  given  by: 


is  output. 

If  the  time  step  is  scheduled  to  change  at  t^^-|  from  At-j  to  At2»  the  displacement  for  time 
i+1  has  been  calculated.  {u^},  and  (u^^i)  are  saved  along  with  (P^+i).  The  matrices 

are  formed  and  decomposed  as  in  Equations  9,10,  and  11  for  At  = At2. 

The  following  equation  is  used  for  computing  {u^^2^ 


(lb) 


is  output. 


The  acceleration  vector  given  by 


(16) 


(17) 


The  vectors  {P.}  and  {u.}  in  the  above  equation  are  calculated  as  follows.  Define 


(18) 
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(1?) 

{u|}  = , 

(20) 

then: 

t2 

(u|}  . ("ui>-“zL“W>*V  ' 

(21) 

{pj}  = [M]  {U.^^}  + [B]  {uj}  + [K]  {uj}  . 

(22) 

If  the  CONTINUE  mode  is  set  (NC0L  > 0)  (see  Section  11.3.2  of  the  Theoretical  Manual  for 
details),  TRD1C/TRD1C2  will  extract  the  displacement  (u^),  velocity  (u^)  and  acceleration 
(ii^)  from  the  specified  time  step  of  the  previous  run.  u^  (the  first  displacement  of  the 
continued  run)  is  given  by 

[D]  {u^}  = j {P_i  + Pg  + P^}  + {Ng}  + [C]  {u^}  + [E]  {u.,}. 

(23) 

where 

{Pq}  = [K]  {u^}  + [B]  {U|^}  + [M]  {u^}. 

(24) 

2 

{u_^}  = {u^}  -At  ^ {u^}, 

(25) 

{u_^}  = {u^}  - {U„}  At  . 

(26) 

and 

{P.-,}  = [M]  {u^}  + [B]  {u_^}  + [K]  {u_^}  . 

(27) 

2.  Solution  of  Uncoupled  Modal  Equation:  If  the  method  of  matrix  formulation  is  modal  and 

no  transfer  functions  or  direct  input  matrices  are  used,  the  equations  may  be  solved  in  a 
more  accurate,  more  direct  manner.  The  diagonal  terms  of  MHH,  BHH,  and  KHH  are  stored  in 
core.  The  following  data  are  necessary  to  solve  the  transient  behavior  of  a modal 
coordinate  (1). 
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Modal  mass  of  mode  (MHH) 

Modal  damping  coefficient  (BHH) 
Modal  stiffness  (KHH) 


vz 


• H,  ■ 6‘l  . 


tj  = time  of  the  time  step, 

hj  = time  increment  after  the  time, 


,*th  . . 


f.  ^ = applied  load  on  coordinate  i at  the  j time. 


The  following  coefficients  are  generated  for  each  distinct  time  increment  and  stored  ii 
core. 

There  are  four  cases,  (e  = 10“^  and  the  subscript  1 is  implied), 
a.  If  > 3^  + e (underdamped); 

F = e“^*^  (cos  ^ sin  cah)  , 


G =-  ~ e’^*^  sin  u)h  , 


A = {e  r. (^'  — 3h)  sin  o)h  - (^^  + hoj)  cos  coh]  + > 


B = {e”^^  [(-  - — ^)  sin  u)h  + cos  wh]  + coh  - , 


F'  = — — e sin  ojh  , 
0)  * 


Qi  _ e"^^(cos  coh  - - sin  loh)  , 


(28) 

(29) 

(30) 


(31) 

(32) 

(33) 

(34) 

(35) 

{JbJ 
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A'  = [e“^^  {(e  + hu^)  sin  wh  + ucos  uh}  - w]  , 


B'  = tn^  ($sin  wh  + <o  cos  uh)  + w]  , 

nKo) 


b.  If  1(0^^  - < e (critically  clamped): 


F = e‘®^(l  + 3h)  , 


G = he"^^  , 


A = ^ [f  - f (2  + 2he  + G^)]  . 


B = 


L [-2  + Bh  + e"^*^  (2  + Bh)]  , 


m 


F'  = -B^he"^*’  , 


G'  = e'^^(l  - Bh)  , 


A‘  = ^ [e’^^  (1  + hB  + h^B")  -1]  . 


B'  = ^ [1  - (eh  + 1)]  . 


c.  If  <3^-6  (over  damped): 


F = e"^^  (cosh  o)h  + ~ sinh  wh)  , 


G = - e“^*^  sinh  wh  , 
0) 


A = {e"^*’  [{- — — hB)  sinh  uh  - (-^  + hw)  cosh  loh]  + , 

nku  ->  ■> 


B = {e~^^  [2i — A sinh  uh  + cosh  wh]  + uh  - , 

(0  2 0)  ^ (0  " 


(37) 

(38) 

(39) 

(40) 

(41) 

(42) 

(43) 

(44) 

(45) 

(46) 

(47) 

(48) 

(49) 

(50) 
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F'  = - ~ sinh  ojh  , 

cu  ’ 

G'  = (cosh  (oh  - - sinh  coh)  , 

OJ 

A'  = [e  {(e  + hu^*)  sinh  ooh  + u cosh  ooh}  - u]  , 

[-  e (3  sinh  uh  + u cosh  wh)  + w]  . 
d.  If  |Wq|  = |3|  <.?  (undamped): 


(51) 

(52) 

(53) 

(54) 


F = 1.  (55) 

G = h,  (56) 

A = hV3m,  (57) 

B = hV6m,  (58) 

F'  = 0,  (59) 

G'  = 1,  (60) 

A'  = h/2m,  (61) 

B'  = h/2m.  (62) 


The  equations  for  each  displacement,  velocity,  and  acceleration  in  terms  of  the 
applied  loads  and  previous  displacement  and  velocity  are: 


^i,j+l  " '"i^i.j  ®i^iJ  ^^i.j  ^1^1.j+l  ’ 


(63) 


^U+1  “ ^‘i^1,j"'^‘i^i,j"^’i^i,j"^'i^i,j+l  ‘ 


(64) 


^i . j+1 


^,J>1  , ‘^1^i.3>l  '^l^i,j>l 


(65) 
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4.65.8  Subroutines 


Utility  routines  PRETAB,  TAB,  SSG2A,  CALCV,  SSG2B,  ADD,  SDC0MP,  and  DEC0MP  are  used.  See 
subroutine  descriptions,  Section  3 for  details. 


4.65.8.1  Subroutine  Name:  TRDIA  Single  Precision 

TRD1A2  Double  Precision 

1.  Entry  Point:  TRDIA,  TRD1A2 


2.  Purpose:  To  assemble  the  loads  at  all  time  steps. 


3.  Calling  Sequence:  CALL  TRDIA  (CASECC,  TRL,  IC,  NLFTP,  NGR0UP,  M0DAL) 

CALL  TRD1A2  (CASECC,  TRL,  IC,  NLFTP,  NGR0UP,  M0DAL) 


TRL,  CASECC 
IC 

NLFTP 

NGR0UP 

M0DAL 


GIN0  file  numbers  of  their  respective  data  blocks  - integer  - input. 
GIN0  file  number  of  initial  condition  matrix  - integer  - input. 
Non-linear  load  set  id  selected  in  CASECC  - integer  - input  - output. 
Number  of  time  step  changes  - integer  - output. 

If  M0DAL  = 1,  a modal  formulation  is  being  used  - integer  - input. 


4.65.8.2  Subroutine  Name:  INITL  Single  Precision 

INITL2  Double  Precision 

1.  Entry  Point:  INITL,  INITL2 

2.  Purpose:  To  form  [C]  and  [E]  matrices  and  to  form  and  decompose  the  [D]  matrix. 

3.  Calling  Sequence:  CALL  INITL  (0FFSET,  DELTA) 

CALL  INITL2  (0FFSET,  DELTA) 

C0MM0N/TRDXX/  See  Section  4.65.8.3. 

0FFSET  - Length  of  reserved  area  of  core  - integer  - input. 

DELTA  - Current  time  increment  - real  - input. 

4.  Method:  INITL/INITL2  will  choose  between  symmetric  and  unsymmetric  decomposition  based 

on  the  trailers  of  the  input  matrices  [K],  [B],  and  [M].  It  will  also  set  TSYM  in  /TRDXX/ 
to  inform  the  remaining  routines. 
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4.65.8.3  Subroutine  Name:  TRDIC  Single  Precision 

TRD1C2  Double  Precision 

1.  Entry  Point:  TRDIC,  TRD1C2 

2.  Purpose:  To  solve  the  coupled  equations. 

3.  Calling  Sequence:  CALL  TRDIC  (IC,PAPPLD,NGR0UP,NLFTP,UDV,I ,SCR1 ,DIT,NLFT,N0UE,M0DA1  ,PNL) 

CALL  TRD1C2  (IC,PAPPLD,NGR0UP,NLFTP,UDV,I ,SCR1 ,DIT,NLFT,N0UE,M0DA1 ,PNL) 


IC,NGR0UPl 
NLFTP  f " 

Are  as  described  in  TRDIA  - integer  - input. 

UDV,DIT  \ 
NLFT.PNL  / ‘ 

Are  GIN0  file  numbers  of  their  respective  data  blocks  - integer  - input. 

SCRl 

GIN0  file  number  of  a scratch  file. 

PAPPLD 

GIN0  file  number  of  applied  loads  - integer  - input. 

N0UE 

Module  parameter. 

M0DA1 

-1  if  F0RM  f M0DAL.  1 if  F0RM  = M0DAL  - integer  - input. 

I 

Current  loop  count.  Runs  from  1 to  number  of  time  step  changes  - integer  - 
input. 

C0MM0N/TRDXX/IK(7) ,IM(7) ,IB(7) ,C,LLL,ULL,E ,SCR1 ,SCR2 ,I0PEN,ISYM,T0 ,N0PD, ISPNL 


IK(7) 

Matrix  control  block  for  K matrix. 

IM(7) 

Matrix  control  block  for  M matrix. 

IB(7) 

Matrix  control  block  for  B matrix. 

C 

GIN0  file  number  for  C matrix. 

LLL,ULL 

GIN0  file  numbers  for  decomposition  products  of  D matrix. 

E 

GIN0  file  number  for  E matrix. 

SCRl ,SCR2  - 

GIN0  file  numbers  for  2 scratch  files. 

I0PEN 

1 implies  C,ULL,LLL,  and  E are  open. 

0 implies  C,ULL,LLL,  and  E are  closed. 

ISYM 

1 implies  unsymmetric  decomposition  used. 
0 implies  symmetric  decomposition  used. 

T0 

Initial  time  (usually  0.0). 

N0PD 

True  if  PD  does  not  exist. 
False  if  PD  exists. 

ISPNL 

0 if  PNLD  is  not  to  be  formed. 

1 if  PNLD  is  to  be  formed. 

4.65.8.4  Subroutine  Name:  F0RM1  Single  Precision 

F0RM12  Double  Precision 

1.  Entry  Point:  F0RM1 , F0RM12 

2.  Purpose:  To  compute  (u  -j},  {Pq},  and  {P_-|}  Tor  starting  the  integration  procedure 
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3.  Calling 


U0 

UD0T0 

UI 

P0 

PI 

DELTAT 

IBUF 


Sequence:  CALL  F0RM1  (U0,UD0T0,UI ,P0, PI , DELTAT, IBUF) 

CALL  F0RM12  (U0,UD0T0,UI ,P0, PI , DELTAT, IBUF) 

Array  of  core  containing  {u^}  - real  - input. 

Array  of  core  containing  {u^}  - real  - input. 

Array  of  core  for  storage  of  {u_^}  - real  - output. 

Array  of  core  for  storage  of  {P^}  - real  - output. 

Array  of  core  for  storage  of  {P.-|}  “ '^eal  - output. 

Current  time  step  size  - real  - input. 

GIN0  buffer. 


4.65.8.5  Subroutine  Name:  MATVEC  Single  Precision 

MATVC2  Double  Precission 


1.  Entry  Point:  MATVEC,  MATVC2 

2.  Purpose:  To  form  the  product  {XI  = {X}  + [A]  {Y}  where  [A]  is  a matrix  and  {Y}  is  a 

vector. 

3.  Calling  Sequence:  CALL  MATVEC  (Y,X,FILEA,IBUF) 

CALL  MATVC2  (Y,X,FILEA,IBUF) 


Y 

X 

FILEA 

IBUF 

C0MM0N/TRDXX/ 


Array  of  core  containing  Y array  real  - input. 

Array  of  core  containing  X array  real  - input/output. 

Matrix  control  block  for  A.  If  FILEA(l)  £ 0,  MATVEC  will  return. 

GIN0  buffer.  If  IBUF  < 0,  MATVEC/MATVC2  will  assume  the  file  is  already  i 
(see  Section  4.65.8.3). 


4.65.8.6  Subroutine  Name:  STEP  Single  Precision 

STEP2  Double  Precision 


1, 

Entry  Point:  STEP,  STEP2 

2. 

Purpose: 

To  integrate  forward  1 time  step. 

3. 

Calling  Sequence:  CALL  STEP  (U2,U1 ,U0,P,IBUF) 

CALL  STEP2  (U2.U1 ,U0,P,IBUF) 

U2 

- 

Array  which  will  contain  " output 

Ul 

- 

Array  containing  - real  - input. 

U0 

- 

Array  containing  {u^-}  - real  - input. 

P 

- 

Array  containing  combined  load  - real  - input. 

IBUF 

GIN0  buffer  - input. 

COMMON/TRDXX/ 

(see  Section  4.65.8.3). 
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4.65.8.7  Subroutine  Name:  INTFBS 


1.  Entry  Point:  INTFBS 

2.  Purpose:  To  perform  the  forward -backward  substitution  necessary  to  solve  the  system 

of  equations:  [A]  {Y}  = {X}  for  {Y}  if  [A]  was  unsymmetric. 

3.  Calling  Sequence:  CALL  INTFBS  (X,Y,IBUF) 

X - Load  vector  (i.e.,  right  hand  side)  - real  - input. 

Y - Solution  vector  - real  - output. 

IBUF  - GIN0  buffer. 

C0MM0N/TRDXX/  (see  Section  4.64.8.3). 

C0MM0N/INFBS/FILEL(7) ,FILEU(7) 

FILEL  - Matrix  control  block  of  the  lower  triangular  factor  from  the  decomposition  of  A. 

FILED  - Matrix  control  block  of  the  upper  triangular  factor  from  the  decomposition  of  B. 

4.65.8.8  Subroutine  Name:  TRDID  Single  Precision 

TRD1D2  Double  Precision 

1.  Entry  Point:  TRDID,  TRD1D2 

2.  Purpose:  To  compute  the  non-linear  loads  at  each  time  step. 

3.  Calling  Sequence:  CALL  TRDID 

CALL  TRD1D2 

C0MM0N/TRDD1/NLFT,DIT.NLFTP,N0UT,IC0UNT,IL00P,M0DA1,NZ,IC0RE,IU2,IP4,IPNL(7),NM0DES, 

NSTEP,PNL 

The  variables  DIT,NLFT,NLFTP,M0DA1  and  PNL  are  defined  as  in  TRDIC  (see  section  4.65.8.4). 


N0UT 

IC0UNT 

IL00P 

NZ 

IC0RE 

IU2 

fP4 

I PNL 

NM0DES 

NSTEP 


Output  interval  - integer  - input. 

Current  time  step  counter  - integer  - input. 

Current  time  change  counter  - integer  - input. 

Length  of  open  core  - integer  - input. 

Pointer  to  first  unused  cell  of  open  core  - integer  - input. 

Pointer  to  displacement  vector  - 1 - integer  - input. 

Pointer  to  load  area  -1  - integer  - input. 

Matrix  control  block  for  PNL  - integer  - input/output. 

Number  of  modes  if  modal  formulation  is  being  used  - integer  - input. 

Number  of  times  steps  for  this  time  increment  - integer  - input. 
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4.65.8.9  Subroutine  Name:  TRD1E 

1.  Entry  Point:  TRDIE 

2.  Purpose:  To  solve  the  uncoupled  modal  equations. 

3.  Calling  Sequence:  CALL  TRDIE  (MHH,BHH,KHH,PH,UHV,NGR0UP) 

- GIN0  file  numbers  of  their  respective  data  blocks  - integer-  input. 

NGR0UP  - Number  of  time  step  changes  - integer  - input. 

4.65.8.10  Subroutine  Name:  F0RM2  Single  Precision 

F0RM22  Double  Precision 

1.  Entry:  F0RM2,  F0RM22 

2.  Purpose:  To  compute  {up  and  {Pj}  when  changing  time  steps.  (See  Equations  15  through 

25). 

3.  Calling  Sequence:  CALL  F0RM2  (UDDIPl ,UDIP1 ,UIP,PIP, IBUF) 

CALL  F0RM22  (UDDIPl ,UDIP1 ,UIP, PIP, IBUF) 

UDDIPl  - Array  of  core  containing  ’ '^eal  - input. 

UDIPl  - Array  of  core  containing  - *^eal  - input. 

UIP  - Array  of  core  containing  (up  - real  - output. 

PIP  - Array  of  core  containing  (Pp  - real  - output. 

IBUF  - GIN0  buffer 

C0MM0N/TRDXX/  (see  Section  4.65,8.3) 

4.65.8.11  Subroutine  Name:  FBSINT 

1.  Entry  Point:  FBSINT 

2.  Purpose:  To  perform  the  same  functions  as  INTFBS  (Section  4.65.8.7)  if  [A]  is  symmetric. 

Subroutine  FBS21  is  called  to  process  data  in  mixed  precisions. 

3.  Calling  Sequence:  Identical  to  INTFBS. 
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4.65.9  Design  Requirements 


1. 


Open  core  at  /TRDIX/  is 


illustrated  as  follows: 


C0MM0N/TRD1X/ 


Open  core  for 
DEC0MP  or  SDC0MP 
and  ADD 


Number  of  Steps 


At 


Output  Interval 


Repeated  for  each  time  step  change 
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4.65.8.10  Subroutine  Name:  TRDIE 

1.  Entry  Point:  TRDIE 

2.  Purpose:  To  solve  the  uncoupled  modal  equations. 

3.  Calling  Sequence:  CALL  TRDIE  (MHH,BHH,KHH,PH,UHV,NGR0UP) 

MHH,BHH,KHH,  _ numbers  of  their  respective  data  blocks  - integer  - input. 

rn  jUnV 

NGR0UP  - Number  of  time  step  changes  - integer  - input. 

4.65.8.11  Subroutine  Name:  F0RM2 


1.  Entry  Point:  F0RM2 

2.  Purpose:  To  compute  {up  and  (Pp  when  changing  time  steps.  (See  Equations  23 

through  28) 

3.  Calling  Sequence:  CALL  F0RM2  (UDDIPl ,UDIP1 ,UIP,PIP, IBUF) 


UDDIPl 

UDIPl 

UIP 

PIP 

IBUF 


- Array  of  core  containing  (u.j+p  - real  - input. 

- Array  of  core  containing  tu^-^p  - real  - input. 

- Array  of  core  containing  (up  - real  - output. 

- Array  of  core  containing  (Pp  - real  - output. 

- GIN0  buffer 


C0MM0N/TRDXX/  (See  section  4.65.8.4) 
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4.65.9  Design  Requirements 

1.  Open  core  at  /TRDAl/  is  illustrated  as  follows: 


C0MM0N/TRDA1/ 


Load  ID 


Scale 


1 

Load  ID2 
ScalOo 


Table  ID^ 
Table  ID^ 


Tables 


Load  at  T 


1 


Load  at  T. 


Load  at  T. 


PRETAB  Buffer 


DLT  Buffer 


PP  Buffer 


Number  of  steps 


At 


Output  Interval 


Load  id's  + Scale  factors  for  current 
DL0AD 


List  of  unique  table  ID's  referenced  by 
loads  (NTABL  id's) 


Table  data  used  by  PRETAB/TAB 

LUSETD  / These  are  repeated  for  as 

V many  times  as  core  will  hold. 


Gone  when  loads  are  in  core 


2 GIN0  Buffers 


Repeated  for  each  time  steo  change 


There  must  be  enough  core  to  assemble  one  time  step  load. 
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Open  Core  at  /TRDIX/  is  illustrated  as  follows: 


C0MM0N/TRD1X/ 


Open  Core 
for  DEC0MP 
and  ADD 


Number  of  steps 


At 


Output  Interval 


Repeated  for  each  time  step  change 
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This  table  Is 
3.  Open  Core 


at  the  bottom  of  open  core  through  the  module, 
at  /TRDCl/  is  illustrated  as  follows: 


C0MM0N/TRDC1/ 


“2 

^3 

FI 

P2 

P3 

P4 

Type 

Table  ID's 

Table's  for  TAB 

Tab  Buffer 

C Buffer 

D Buffer 

ULL  Buffer 

LLL  Buffer 

Solution  Buffer 

Load  Buffer 

utility  Buffer 

) 

} 

) 

} 

} 

} 

} 

} 

} 


NR0W 

NR0W 

NR0W 

NR0W 

NR0W 

NR0W 

NR0W 

5 words  for  each  non-linear  load  card 
selected. 

Table  ID's  selected  on  N0LIN  cards. 

Used  only  if  non-linear  loads  are 
selected. 


GIN0  Buffers 
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4.  Open  Core  at  /TRDEl/  is  illustrated  as  follows: 


Each  section  is  of  length  H 


2 GIN0  buffers 


C0MM0N/TRDE1/ 


MHH 

BHH 

KHH 

F 

G 

A 

B 

F‘ 

G' 

A' 

B' 

^j+1 

^j+i 

Ph  Buffer 

UHV  Buffer 
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.65.10  Diagnostic  Messages 

TRD  may  issue  the  following  messages 

3001,  3002  , 3003  , 3005  , 3007  , 3008  , 3031,  3044  , 3045  , 3046. 


4.65-22  (7/1/70) 


FUNCTIONAL  MODULE  GKAM  (GENERAL  K ASSEMBLER  MODAL) 

4.66  FUNCTIONAL  MODULE  GKAM  (GENERAL  K ASSEMBLER  MODAL) 

4.66.1  Entry  Point:  GKAM 

4.66.2  Purpose 

To  assemble  the  modal  mass,  damping  and  stiffness  matrices. 

4.66.3  DMAP  Calling  Sequence 

GKAM  USETD,PHIA,MI ,LAMA,DIT,M2DD,B2DD,K2DD,CASECC  / MHH ,BHH ,KHH ,PHIDH  / V,N,N0UE  / 
C,Y,LM0DES  / C,Y,LFREQ  / C,Y,HFREQ  / V,N,N0M2PP  / V,N,N0B2PP  / V,N,N0K2PP  / 
V,N,N0NCUP  / V,N,FM0DE  / C,Y,KDAMP  $ 

4.66.4  Input  Data  Blocks 

USETD  - Displacement  set  definitions  table  dynamics. 

PHIA  - Eigenvectors  matrix  giving  the  eigenvectors  (displacements)  in  the  a set. 

MI  - Modal  mass  matrix. 

LAMA  - Real  Eigenvalue  Table. 

DIT  - Direct  Input  Table. 

M2DD  - Direct  input  mass  matrix  - d set. 

B2DD  - Direct  input  damping  matrix  - d set. 

K2DD  - Direct  input  stiffness  matrix  - d set. 

CASECC  - Case  Control  Data  Table. 

Notes : 

1.  USETD  may  be  purged  if  N0UE  < 0. 

2.  PHIA  cannot  be  purged. 

3.  MI  may  be  purged. 

4.  LAMA  cannot  be  purged 

5.  DIT  cannot  be  purged  if  SDAMP  0 in  CASECC. 

6.  CASECC  cannot  be  purged 

7.  M2DD  cannot  be  purged  if  N0M2PP  > 0. 

8.  B2DD  cannot  be  nurged  if  N0B2PP  ^ 0. 

9.  K2DD  cannot  be  purged  if  N0K2PP  > 0. 
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4.66.5  Output  Data  Blocks 

MHH  - Modal  mass  matrix  - h set. 

BHH  - Moda*l  damping  matrix  - h set. 

KHH  - Modal  stiffness  matrix  - h set. 

PHIDH  - Transformation  matrix  from  d set  to  modal  coordinates. 

Note:  No  output  matrix  can  be  purged. 

4.66.6  Parameters 

Input-integer-no  default.  N0UE  indicates  presence  and  number  of  extra  points. 

Input-integer-no  default.  LM0DES  selects  the  first  LM0DES  eigenvectors  (or  all 
if  there  are  less  than  LM0DES)  to  use  for  the  modal  coordinates. 

Input-real-no  default.  If  LM0DES  = 0,  eigenvectors  with  eigenvalues  between 
LFREQ  and  HFREQ  are  used  in  the  modal  formulation. 

Input-real-no  default.  See  LFREQ. 

Input-integer-no  default.  If  N0M2PP  < 0,  M2DD  will  not  be  used. 

Input-integer-no  default.  If  N0B2PP  < 0,  B2DD  will  not  be  used. 

Input-integer-no  default.  If  N0K2PP  < 0,  K2DD  will  not  be  used. 

Output-integer-no  default-.  If  no  direct  input  matrices  exist  the  problem  is 
considered  uncoupled  and  N0NCUP  is  set  to  -1. 

Output-integer-default  = 1.  The  mode  number  of  the  first  selected  eigenvector 
is  stored  in  FM0DE. 

Input-integer-default  = -1.  KDAMP  chooses  the  method  of  computing  damping. 

4.66.7  Method 

The  general  system  assembly  module  for  the  modal  method  is  used  when  the  real  eigenvalues 
for  the  structure  have  been  determined.  With  this  method,  it  is  possible  to  decrease  the  order 
of  the  problem  without  sacrificing  accuracy.  The  module  forms  the  conversion  matrix  between  modal 
displacements  and  all  free  physical  displacements  of  the  system.  It  then  forms  the  general  matrices 
in  terms  of  displacements  of  the  modes  and  the  extra  points. 

CASECC  is  read,  and  the  selected  structural  damping  table  "id”  is  stored. 

LAMA  is  read  and  the  selected  eigenvalues  are  stored  in  core.  If  an  eigenvalue  is  selected, 
the  corresponding  column  of  PHIA  is  copied  onto  PHIDHl,  a scratch  file. 


N0UE 

LM0DES  - 

LFREQ  - 

HFREQ  - 
N0M2PP  - 
N0B2PP  - 
N0K2PP  - 
N0NCUP  - 

FM0DE  - 

KDAMP  - 
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If  extra  points  are  not  present  (N0UE  < 0),  PHIDH  = PHIDHI.  If ‘extra  points  are  present: 


\ I 0 

- -4-  -- 

0 1 Ij 


0) 


This  is  accomplished  in  subroutine  GKAMIB. 
The  "H”  matrices  are  formed: 

= 

= 


where  m^.  = diagonal  terms  of  MI,  and 


— 


m. 

- - f - - 


4-  — 


* [‘dhf  ["^3  ■ 


* [B^,] 


= m.  0)^.  g (o)^. ) , 


k.  = m.  0). 


if  KDAMP  = -1  (the  default). 

If  KDAMP  = T (used  for  Aeroelastic) , 


b.  = 0 , 


k^-  = (1  + ig  (u^-))  uv  m. 


(2) 


(3) 


(4) 


(5) 

(6) 


(7) 

(8) 


is  the  frequency  for  the  mode  from  LAMA  and  g (to^)  is  the  tabular  structural  damping  table 
selected  in  CASECC.  If  no  selection  is  made,  g (m^.)  = 0.0.  The  "H"  matrices  are  formed  using  sub- 
routines GKAMIA,  SSG2B,  TAB,  CALCV,  MERGE. 


4.66.8  Subroutines 


4.66.8.1  Subroutine  Name:  GKAMIB. 

1.  Entry  Point:  GKAMIB. 

2.  Purpose:  To  construct  if  extra  points  are  present. 
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3.  Calling  Sequence:  CALL  GKAMIB  (USETD.SCRl ,SCR2,PHIDH.PHIDH1 ,M0DES,C0RE,LHSET,N0UE) 


USETD 

GIN0  file  number  of  USETD  - integer  - inout. 

SCRl 

- GIN0  file  number  of  1st  scratch  file  - integer  - input. 

SCR2 

- GIN0  file  number  of  2nd  scratch  file  - integer  - input. 

PHIDH 

- GIN0  file  number  of  PHIDH  - integer  - input. 

PHIDHl 

- GIN0  file  number  of  PHIDHl  - integer  - input. 

M0DES 

- Number  of  modes  selected  - integer  - input. 

C0RE 

- Array  of  open  core. 

LHSET 

- Length  of  h set  - integer  - output. 

N0UE 

Extra  point  flag  N0UE  ^ 0 indicates  presence  of  extra  points  - integer  - input 

4.66.8.2  Subroutine  Name:  GKAMIA. 

1.  Entry  Point:  GKAMIA. 

2.  Purpose:  To  form  [M^^],  or 

3.  Calling  Sequence:  CALL  GKAMIA  (MI.PHIDH.DIT.SCRl ,SCR2,I0PT,IHH,N0I2DD,C0RE,M0DES, 


SDITD,LHSET.I2DD,IMSKIP,SCR3) 

MI 

- GIN0  file  number  of  MI  - integer  - input. 

PHIDH 

- GIN0  file  number  of  PHIDH  - integer  - input. 

DIT 

- GIN0  file  number  of  DIT  - integer  - input. 

SCRl 

- GIN0  file  number  of  scratch  1 - integer  - input. 

jCR2 

- GIN0  file  number  of  scratch  2 - integer  - inout. 

SCR3 

- GIN0  file  number  of  scratch  3 - integer  - input. 

IHH 

- GIN0  file  number  of  HH  file  (M,  B,  or  K)  being  constructed  - integer  - input. 

I2DD 

- GIN0  file  number  of  2DD  file  being  used  with  IHH  (K2DD,  M2DD  or  B2DD)  - 
integer  - input. 

I0PT 

- Flag  for  equation  to  use 

1 ==>  MHH 

2 BHH 

3 =^KHH 
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N0I2DD 

M0DES 

SDTID 

LHSET 

IMSKIP 

C0RE 


- integer  - input. 

N0I2DD  < 0 implies  I2DD  purged  - integer  - input. 

Number  of  modes  selected  - integer  - input. 

Id  of  structural  damping  table  to  be  used  for  BHH  - integer  - input. 

Length  of  H set  - integer  - input. 

Number  of  records  to  skip  in  MI  before  extracting  diagonal  terms  - integer 
input. 

Array  of  modes  selected. 


4.66.9  Design  Requirements 

Three  scratch  files  are  necessary.  Open  core  at  /GKAMlX/is  used  for  mode  storage.  One 
packed  eigenvector  must  be  held  in  core. 

4.66.10  Diagnostic  Messages 

Fatal  error  messages  3007  and  3008  may  be  issued  by  GKAM. 
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4.67  FUNCTIONAL  MODULE  DDRl  (DYNAMIC  DATA  RECOVERY  - PART  1) 

4.67.1  Entry  Point:  DDRl 

4.67.2  Purpose:  To  transform  modal  solutions  to  physical  solutions: 

<“d>  ■ <"h>  ■ 0) 

4.67.3  DMAP  Calling  Sequence 
DDRl  UHV,PHIDK/UDV  $ 

4.67.4  Input  Data  Blocks 

UHV  - Solution  set  displacement  vectors. 

PHIDH  - Transformation  matrix  from  d set  to  modal  coordinates. 

4.67.5  Output  Data  Blocks 

UDV  - Displacement  vectors  - d set. 

4.67.6  Parameters 
None 

4.67.7  Method 

Subroutine  SSG2B  is  called  to  compute  (u^l  as  in  Equation  1. 

4.67.8  Subroutines 

DDRl  has  no  auxiliary  subroutines.  See  section  3.5.13  for  a description  of  SSG2B. 

4.67.9  Design  Requirements 

One  scratch  file  Is  needed. 
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4.68  FUNCTIONAL  MODULE  DDR2  (DYNAMIC  DATA  RECOVERY  - PART  2) 


4.68.1  Entry  Point:  DDR2 

4.68.2  Purpose 

To  compute  mode  acceleration  displacements. 

4.68.3  DMAP  Calling  Sequence 

DDR2  USETD,UDV,PDF,K2DD,B2DD,MDD,FRL,ULL,LLL,DM/UDV1 ,UEVF,PAF/V,N,TYPE/V,N,N0UE/V,N, REACT/ 
V,N,FRQSET  $ 


4.68.4  Input  Data  Blocks 


USETD 

UDV 

PDF 

K2DH 

B2DD 

MDD 

FRL 

ULL 

ILL 

DM 


Notes: 

1. 

2. 


3. 


4. 


5. 


6. 


7. 


- Displacement  set  definitions  table  dynamics. 

- Displacement  vectors  - d set. 

- Dynamic  load  matrix  for  frequency  analysis  - d set. 

- Direct  input  stiffness  matrix  - d set. 

- Direct  input  damping  matrix  - d set. 

- Dynamic  mass  matrix  - d set. 

- Frequency  Response  List. 

- Upper  triangular  factor  of  KLL  - i set. 

- Lower  triangular  factor  of  KLL  - i set. 

- Rigid  body  transformation  matrix. 


USETD  must  not  be  purged. 

UDV  must  not  be  purged. 

PDF  must  not  be  purged. 

FRL  must  not  be  purged  if  TYPE  = FREQ. 
MDD  must  not  be  purged. 

ULL,  LLL  must  not  be  purged. 

DM  must  not  be  purged  if  REACT  ^ 0. 
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4.68.5  Output  Data  Blocks 

UDVl  - Displacements  after  mode  acceleration  - d set. 

UEVF  - Displacements  at  the  extra  points. 

PAF  - Equivalent  load  vector  for  mode  acceleration  computations  - a set. 

4.68.6  Parameters 

TYPE  - Input-BCD-no  default.  TYPE  determines  the  type  of  mode  acceleration  which  will  be 
used,  TRAN  for  transient  or  FREQ  for  frequency  response. 

N0UE  - Input-integer-no  default.  N0UE  ^0  indicates  presence  of  extra  points. 

REACT  - Input-integer-no  default.  REACT  ^0  indicates  presence  of  supports. 

FRQSET  - Input-integer-no  default.  FRQSET  chooses  the  frequency  list  if  TYPE  = FREQ. 

4.68.7  Method 

The  equivalent  load  vector  is  computed: 

'fd>  ■ Ifd'  - '“d>  - Wdd^  <“d>  - ["dd^  '“d>  ■ c> 

For  a transient  analysis  problem  and  are  given  explicitly.  For  Frequency 

Response  Analysis: 


(Ud)  = iw  {Ud>  , 

(2) 

(Ud)  = -co^  {Ud}, 

(3) 

where  oj  is  the  forcing  frequency  and  {u^}  is  the  complex  response  vector,  u)  comes  from  FRQSET 
in  FRL.  The  vector  {P^}  is  the  sum  of  applied  loads  and  inertia  loads  due  to  the  motion  of  the 
system  approximated  by  its  lower  modes.  The  static  solution  using  these  loads  will  provide  a 
better  answer  for  displacements. 
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If  extra  points  are  present  (N0UE  > 0),  then 


{P^}  =>  ) a 


(4) 


(5) 


(Ug)  is  placed  in  data  block  UEVF.  Subroutines  CALCV  and  SSG2A  perform  this  calculation. 
If  supports  are  present  (REACT  > 0)»  then 


(Pj)  =>  f , 

r 


(6) 


->  j-^Lj  . 


(7) 


Solve  for  (uf); 

a 

[L„]  [U„]  (uj)  . (Pj)  . 

This  is  accomplished  in  subroutine  SSG3A. 

If  supports  are  present,  then 

. ({u®}  + [D]  (uj) 

-}  ■ 

otherwise,  {uf}  = {u^}.  Subroutine  SDRIB  performs  this  calculation. 

Q 36 


(8) 


(9) 
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If  extra  points  are  present,  then 


e 


(10) 


Note:  If  the  problem  type  is  transient,  {u^}  must  be  merged  with  {u^}  and  (u^l. 

4.68.8  Subroutines  Called 

CALCV  - See  section  3.5.5. 

SSG2A  * See  section  3.5.7. 

SSG2B  - See  section  3.5.13. 

SSG3A  - See  section  3.5.18. 

SDRIB  - See  section  3.5.8. 

4.68.8.1  Subroutine  Name:  DDRIA. 

1.  Entry  Point:  DDRIA. 

2.  Purpose:  To  construct  the  equivalent  load  vector  (P^)- 

3.  Calling  Sequence:  CALL  DDR1A(PDF,K2DD,B2DD,MDD,UDV,PAF,FRL,FRQSET,SCR1 ,SCR2,SCR3,SCR4, 


SCRl-5 

FRQSET  - Frequency  set  list  id  - integer  - input.  FRQSET  will  be  used  only  if  TYPE  = FREQ. 
TYPE  - Problem  type  - BCD  - input. 


TYPE,SCR5). 


MDD 


B2DD 


UDV 


K2DD 


FRL 


PAF 


PDF 


GIN0  file  number  of  appropriate  data  block  - integer  - input. 
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r 

1 


4.68.8.2  Subroutine  Name:  DDR1B 

1.  Entry  Point:  DDRIB. 

2.  Purpose:  To  merge  displacements  with  previously  computed  velocity  and  acceleration  in 

a transient  problem. 

3.  Calling  Sequence:  CALL  DDRIB  (UDV,UAD,UADV) . 

UDV  - GIN0  file  number  of  displacement,  velocity  and  acceleration  file  - intener  - innut. 

UAD  - GIN0  file  number  of  equivalent  displacements  - integer  - input. 

UADV  - GIN0  file  number  of  new  displacements,  velocity  and  acceleration  - integer  - input. 

4.68.9  Design  Requirements 

Open  core  for  DDR2  begins  at  /DDRIX/.  Open  core  for  DDRIA  begins  /DDRAl/.  Open  core  for 
DDRIB  begins  /DDRBl/.  Six  scratch  files  are  needed. 

4.68.10  Diagnostic  Messages 
None. 
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4.69  OUTPUT  MODULE  XYPL0T  (X-Y  DATA  PLOTTER) 

4.69.1  Entry  Point;  XYPL0T 

4.69.2  Purpose 

To  process  information  supplied  by  module  XYTRAN  through  a single  data  block  and  output 
to  either  PLTl  (BCD  plot  tape)  or  PLT2  (binary  plot  tape)  for  labeling  and  plotting  X-Y  data 
on  an  off-line  plotter. 

4.69.3  DMAP  Calling  Sequence 
XYPL0T  XYPLTT//  $ 

4.69.4  Input  Data  Blocks 

XYPLTT  - Plotting  Control  Values  Table.  Note  if  XYPLTT  is  purged,  XYPL0T  returns 
control  without  action. 

4.69.5  Output  Data  Blocks 

None.  (All  output  consists  of  physical  tapes  produced  for  off-line  plotters  and 
possibly  user  warning  messages  to  the  installation  output  unit  for  printing). 

4.69.6  Parameters 
None. 

4.69.7  Method 

XYPL0T  initially  determines  open  core  size  and  assigns  buffers  for  its  input  file  and 
output  file.  The  remaining  core  is  used  to  store  data  points  read  in  for  each  plot.  The 
input  file  is  then  opened  and  spaced  forward  over  the  header  record  containing  the  data  block 
name.  Should  the  system  not  be  able  to  locate  this  file,  a warning  message  is  output  and 
XYPL0T  returns  control  to  the  calling  program  without  further  action.  Otherwise  XYPL0T  reads 
in  the  first  I.D.  record  from  the  input  file.  A check  is  made  to  determine  if  the  word  count 
of  this  record  is  correct.  If  not,  the  following  records  are  checked  until  either  the  correct 
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word  count  is  found  or  the  error  count  reaches  a specified  limit.  If  the  specified  limit  is 
reached,  XYPL0T  assumes  the  input  file  is  invalid  and  returns  control  to  the  calling  program  after 
printing  a warning  message. 

I 

If  the  I.D.  record  had  the  proper  word  count,  XYPL0T  checks  if  new  axes  are  necessary.  If 
not,  the  next  data  record  is  read,  and  the  data  pairs  are  plotted  on  the  previous  axes.  When  new 
axes  are  necessary,  a check  is  made  to  determine  if  they  go  on  the  lower  half  of  a plot.  If  not, 
XYPL0T  makes  a number  of  I.D.  data  validity  checks.  Whenever  possible,  where  I.D.  data  are  ques- 
tionable, default  values  are  assigned  and  processing  continues  following  a warning  message  that 
this  particular  plot  may  be  invalid. 

After  the  validity  checks,  XYPL0T  terminates  the  previous  plot  and  initializes  the  plotting 
parameters  for  the  NASTRAN  plotting  software.  This  is  done  for  each  new  plot  so  that  it  is 
possible  to  produce  alternate  plots  on  two  different  plotters.  Normally,  however,  plots  will  be 
done  for  only  one  plotter  on  any  single  entry  to  XYPL0T.  If  required,  a new  plot  is  initiated,  and 
curve  and  axes  titles  are  prepared  from  the  I.D.  data  and  generated.  If  not  a new  plot,  only  the 
axes  titles  are  done. 

At  this  time  XYPL0T  computes  the  constants  which  will  be  used  to  transform  the  curve  data  into 
actual  plotter  counts.  These  constants  are  saved  and  used  until  new  axes  are  drawn. 

Following  this,  XYPL0T  determines  if  any  tick  marks  are  to  be  placed  along  the  X axis  and  at 
the  X maximum  and  X minimum  lines.  If  there  are  to  be  tick  marks,  the  number  and  spacing  (linear 
or  logarithmic)  is  computed  for  them  and  plotted.  As  the  X direction  tick  marks  are  prepared,  a 
check  is  made  to  determine  if  Y grid  lines  are  requested.  If  so,  a grid  line  is  prepared  at  each 
tick  mark  and  plotted.  Tick  mark  labels  are  prepared  and  plotted  at  the  same  time  as  the  tick 
marks  and  grid  lines,  if  any. 

After  the  tick  marks  are  completed,  the  X and  Y axes  are  plotted  if  requested. 

Once  the  curve  titles,  tick  marks,  and  labeling  have  been  accomplished,  XYPL0T  reads  in 
the  next  record  from  the  input  data  file.  Normally  all  the  data  pairs  for  any  I.D.  record  can  be 
brought  into  core  memory  with  a single  read.  However,  provision  is  made  for  additional  reads  if 
the  open  core  space  is  not  sufficient  to  contain  all  the  data  on  the  initial  read.  A check  is 
made  to  determine  if  there  are  an  even  number  of  data  values  (i.e.,  an  X and  Y value  for  each  data 
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point).  If  not,  a warning  message  is  printed  and  the  last  value  ignored.  The  data  are  then 
checked  against  the  previously  defined  X and  Y frame  mini mums  and  maxi mums  (integer  one  for  the 
X value  means  skip  the  point).  Any  data  outside  these  limits  are  ignored  and  not  plotted.  The 
remaining  data  points  are  then  converted  to  plotter  counts  and  plotted  in  one  of  three  modes.  The 
three  modes  are:  point  plot  with  choice  of  symbol;  line  plot;  combination  of  the  first  two. 

After  finishing  the  data,  XYPL0T  reads  in  the  next  I.D.  record  and  continues  as  before  until 
and  end-of-file  is  reached.  At  this  point  it  closes  the  input  file,  terminates  the  current  plot 
and  returns  control  to  the  calling  program. 

4.69.8  Subroutines 

XYPL0T  calls  the  following  plotter  utility  subroutines:  AXIS,  LINE,  PRINT,  S0PEN,  PLTSET, 
STPL0T,  SYMB0L,  TIPE,  TYPFLT,  and  TYPINT.  The  descriptions  of  these  subroutines  may  be  found  in 
Section  3.4, 

4.69.9  Design  Requirements  ’ 

4.69.9.1  Allocation  of  Core  Storage 

\ 

XYPL0T  uses  open  core  for  two  GIN0  buffers  and  the  remainder  as  one  large  buffer  for  data 
points.  It  appears  as  follows: 
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Normally  the  data  pairs  buffer  will  be  sufficiently  large  to  hold  all  the  data  pairs  for 
a single  curve  at  one  time.  However,  this  is  not  necessary  and  XYPL0T  could  operate  if  the  data 
pairs  buffer  were  only  two  words  long,  although  not  efficiently.  As  an  output  module,  XYPL0T 
has  been  programmed  to  avoid  any  system  fatal  errors.  The  worst  condition  that  should  occur  is 
that  no  plots  are  produced.  In  all  cases  XYPL0T  returns  to  the  calling  program  so  that  other 
system  functions  may  be’ continued. 

4.69.9.2  Environment 

The  beginning  of  open  core  for  XYPL0T  is  defined  by  /XYPLXX/.  XYPL0T  uses  no  scratch 
files.  Common  storage  requirements  consist  of  /XXPARM/  and  /PLTDAT/  which  are  defined  in  the 
block  data  deck  PL0TBD  which  must  be  loaded  with  XYPL0T.  /CHAR94/  and  SYMBLS/  are  also  defined 
in  PL0TBD  and  are  necessary  for  the  subroutines  called  by  XYPL0T.  See  Section  2.5  for  a 
description  of  these  common  blocks. 

When  XYPL0T  is  called,  there  must  be  at  least  one  physical  tape  set  up  to  receive  the 
plotted  output,  otherwise  XYPL0T  returns  to  the  calling  program  without  further  action. 

4.69.10  Diagnostic  Messages 

Diagnostic  messages  991  through  997  may  be  output  on  the  installation  printer  device  as 
a result  of  XYPL0T  operation.  Generally  they  are  self-explanatory  and  usually  point  out 
particular  plots  which  are  questionable  rather  than  giving  the  user  a precise  method  of 
solving  the  problem.  This  is  not  possible  since  XYPL0T  receives  all  its  information 
through  a series  of  other  modules  rather  than  from  the  user  directly.  See  Section  6 of  the 
User's  Manual  for  details. 
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4.70  OUTPUT  MODULE  0FP  (OUTPUT  FILE  PROCESSOR) 

4.70.1  Entry  Point:  0FP 

4.70.2  Purpose 

0FP  outputs  to  the  system  output  file,  in  user-oriented,  self-explanatory  formats,  data 
blocks  prepared  for  output  by  other  functional  modules. 

4.70.3  DMAP  Calling  Sequence 

0FP  DBl ,DB2,DB3,DB4,DB5,DB6//V,N,CARDN0  $ 

4.70.4  Input  Data  Blocks 

One  to  six  input  data  blocks  in  the  output  order  desired.  Any  or  all  input  data  blocks 
may  be  purged. 

4.70.5  Output  Data  Blocks 
None 

4.70.6  Parameters 

CARDN0  - Input  and  output  - integer  - default  = 0.  CARDN0  is  incremented  by  one 

and  punched  in  columns  73-80  for  each  card  punched  by  0FP. 

4.70.7  Method 

4.70.7.1  Overall  Logic  Flow 

The  0FP  logic  consists  of  defining  one  GIN0  buffer  and  then  entering  one  overall  loop  of 
six  passes  (one  pass  for  each  data  block).  All  input  data  blocks  are  then  handled  identically 
one  at  a time. 

Within  each  data  block,  each  odd  numbered  (Identification)  record  and  its  respective 
immediately  following  even  numbered  (Data)  record  ^re  considered  as  a pair,  and  is  a completely 
separate  entity.  There  is,  and  need  be,  no  corres”  ondence  between  these  two  records  and  the 
previous  two  records,  or  between  these  two  records  ind  the  following  two  records. 
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Thus,  within  the  loop  for  a given  data  block,  after  the  file  on  which  the  data  block  resides 
is  opened  and  its  header  record  is  skipped,  0FP  reads  an  Identification  record,  defines  various 
pointers  and  descriptors,  and  then,  if  any  data  are  present  in  the  Data  record,  processes  this 
data  line  by  line  until  the  end-of-record  is  reached.  This  process  continues  for  all  Identifica- 
tion-Data record  pairs. 

4.70.7.2  Defining  Descriptors  and  Pointers 

Because  0FP  was  confronted  with  outputting  a vast  array  of  data  classes  having  many  data 
format  and  heading  format  configurations,  it  was  decided  that  in  order  to  keep  0FP  from  be- 
coming a mammoth  module  of  format  statements,  a system  of  pointers  would  be  used  in  conjunction 
with  all  the  different  micro-format  elements  required. 

Information  in  the  Identification  record  is  sufficient  to  select  an  initial  class  pointer. 
This  class  pointer,  with  the  addition  of  a subclass  pointer,  points  to  an  array  of  six  pointers, 
five  of  which  define  five  micro-line  formats  (from  the  master  set  of  micro-line  formats),  and  one 
of  which  points  to  a string  of  micro-data  format  pointers.  These  micro-data  format  pointers  then 
each  point  to  a micro-data  format  capable  of  outputting  a single  variable. 

This  design  is  such  as  to  make  possible  the  definition  of  macro-formats  and  to  allow  for 
easy  modification  and  addition  of  more  output  data  classes. 

4.70.8  Subrouti nes 

4.70.8.1  Subroutine  Name:  0FPPUN 

1.  Entry  Point:  0FPPUN 

2.  Purpose:  To  write  output  on  the  system  punch  unit. 

3.  Calling  Sequence:  CALL  0FPPUN  (BUF,NWDS,I0PT,IDD,PNCHED) 


NWDS 


BUF 


IDD 


I0PT 


Array  to  be  output. 

Number  of  words  in  BUF  to  output. 

1 = Vector  output. 

2 = General  output. 

0 = S0RT1  (1st  word  Integer). 

1 = S0RT2  (1st  word  Real). 
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4.70. 


4.70. 


4.70. 


4.70. 


4.70. 


4.70. 


4.70. 


I ‘FALSE*  = Punch  heacing  cards. 

•TRUE*  = Do  rot  punch  heading  cards. 

8.Z  Subroutine  Name:  0FP1 

1.  Entry  Point:  0FP1 

2.  Purpose:  To  call  PAGE  and  write  five  micro-line  formats. 

3.  Calling  Sequence:  CALL  0FP1 

8.3  Subroutine  Name:  0FP1A 

1.  Entry  Point:  0FP1A 

2.  Purpose:  An  auxiliary  routine  to  0FP1.  Called  by  0FP1  only. 

3.  Calling  Sequence:  CALL  0FP1A(LINE) 

LINE  - Integer  - Branch  to  format  pointer. 

8.4  Block  Data  Subprogram  Name:  0FP1BD 

0FP1BD  defines  common  block  /0FPBD1/. 

8.5  Block  Data  Subprogram  Name:  0FP2BD 

0FP2BD  defines  common  block  /0FPBD2/. 

8.6  Block  Data  Subprogram  Name:  0FP3BD 

0FP3BD  defines  common  block  /0FPBD3/. 

8.7  Block  Data  Subprogram  Name:  0FP4BD 

0FP4BD  defines  comm.or  block  /0FPBD4/. 

8.8  Block  Data  Subprogram  Name:  0FP5BD 

0FP5BD  defines  common  block  /0FPBD5/. 
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4.70,9.  Design  Requirements 

The  common  blocks  listed  above  interface  between  the  main  subroutines  0FP  and  0FP1A.  In 
addition  C0MM0N/0FPXXX/  is  used  to  define  open-core  which  contains  the  following. 


LI  ] 

L2 

L3 

L4  \ 
L5 

Five  words  which  indicate  the  five  format  numbers 
defining  the  heading  for  the  current  data  being  output. 

ID 

- 

A fifty  word  buffer  for  storage  of  the  first  fifty  words 
of  an  identification  record  from  the  data  block  to  be 
output. 

BUFF 

- 

A GIN0  buffer. 

The  pointer  system  required  by  the  design  operates  as  described  below.  The  arrays  B,C,D,E, 
and  ESINGL,  referenced  in  the  discussion  below  appear  in  subroutine  0FP. 

1.  The  variable  I is  set  equal  to  the  Data  type  specified  in  the  data  block.  The  variable 
J is  set  equal  to  the  class  of  data:  1 = Real  - S0RT1 , 2 = Complex  - S0RT1 , etc.  Then  the 
base  pointer,  CP0INT  = B(I,J),  is  found. 


Data  type  1 
Data  type  2 


Data  type  N 


B array 


S0RT 

1 

S0RT  2 

Real 

Complex 

Real 

Complex 

0 

130 

120 

132 

2 

134 

122 

136 

4 

138 

124 

140 

• 

. 

. 

• 

. 

. 

. 

• 

. 

. 

. 

. 

. 

. 

. 

. 

. 

, 

, 

For  Futurei Expansion 


Example: 

For  I = 2,  J = 4. 


CP0INT  = B(I,J) 
= 136 


4.70-4 


OUTPUT  MODULE  0FP  (OUTPUT  FILE  PROCESSOR) 


2.  CP0INT  is  a index  into  the  C array.  Define:  DP0INT  = C(CP0INT).  DP0INT  is  an  index 

into  the  D array.  Also 

LI  = C(CP0INT  +1). 

L2  = C(CP0INT  + 2), 

L3  = C(CP0INT  + 3), 

L4  = C(CP0INT  + 4), 
and  L5  = C(CP0INT  + 5). 

These  are  the  5 line  format  numbers  which  make  up  the  heading  format  for  the  type  of  data 
currently  being  processed. 


C array 
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3.  Word  DP0INT  of  the  D array  defines  the  beginning  of  a string  of  pointers  into  the  E array. 
This  string  is  terminated  by  the  first  word  containing  a zero.  Each  word  of  this  string  thus 
defines  a string  of  words  in  the  E array  which  contains  Hollerith  data  for  construction  of 
a format.  Should  a word  in  the  D array  be  negative,  the  absolute  value  is  used  to  point  into 
the  ESINGL  array  which  contains  Hollerith  data  also. 


D array 
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4.  The  E array  contains  Hollerith  data  pertaining  to  the  output  of  a variable;  the  ESINGL 
array  contains  Hollerith  data  pertaining  to  spacing  and  carriage  control  only. 


E array 


liote  implies  BCD 
blank 


ESINGL  array 


4.70.10  Diagnostic  Messages 

If,  during  some  phase  of  outputting  a data  block,  0FP  encounters  an  error  condition,  work  on 
that  data  block  will  cease,  a warning  message  will  be  printed,  and  a call  to  the  NASTRAN  table- 
printer  for  table  printing  of  this  data  block  will  be  made.  0FP  will  then  continue  processing  the 
remaining  input  data  blocks. 
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4.71  OUTPUT  MODULE  MATPRN  (GENERAL  MATRIX  PRINTER) 

4.71.1  Entry  Point:  MATPRN. 

4.71.2  Purpose 

To  print  general  matrix  data  blocks. 

4.71.3  DMAP  Calling  Sequence 
MATPRN  KGG,PL,PG,B2PP,UPV//  $ 

4.71.4  Input  Data  Blocks 

KGG  - Any  matrix  data  block. 

PL  - Any  matrix  data  block. 

PG  - Any  matrix  data  block. 

B2PP  - Any  matrix  data  block. 

UPV  - Any  matrix  data  block. 

Notes: 

1.  Any  or  all  input  data  blocks  can  be  purged. 

2.  If  any  data  block  is  not  a matrix,  the  TABPT  routine  will  be  called. 

4.71.5  Output 

The  non-zero  band  of  each  column  of  the  input  matrix  is  unpacked  and  is  printed  in  single 
precision  format  on  the  system  output  file. 

4.71.6  Parameters 
None. 

4.71.7  Method 

Subroutine  MATDUM  is  called  for  each  non-purged  input  file. 

4.71.8  Subroutines 

MATDUM  - See  subroutine  description,  section  3.4.28. 
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4.72  OUTPUT  MODULE  MATGPR  (DISPLACEMENT  METHOD  MATRIX  PRINTER) 

4.72.1  Entry  Point:  MATGPR 

4.72.2  Purpose 

To  print  displacement  method  matrices,  identifying  values  with  external  grid  point  numbers. 


4.72.3  DMAP  Calling  Sequence 

MATGPR  GPL , USET , SI L , ANYMAT//C ,N , C0LSET/C , N , R0WSET  $ 

4.72.4  Input  Data  Blocks 

GPL  - Grid  Point  List  (This  may  also  be  GPLD  if  extra  points  are  present.) 

USET  - Displacement  set  definitions  table  (This  may  also  be  USETD  if  extra  points 
are  present.) 

SIL  - Scalar  Index  List  (This  may  also  be  SILD  if  extra  points  are  present.) 
ANYMAT-  Any  displacement  method  matrix. 

Notes: 

1.  Unless  C0LSET  = R0WSET  = 'H',  GPL,  USET  and  SIL  must  be  present. 

2.  If  ANYMAT  is  purged,  MATGPR  will  return. 

4.72.5  Output  Data  Blocks 

The  non-zero  terms  of  ANYMAT  are  given  external  identification  and  printed  on  the 
system  output  file. 


4.72.6  Parameters 

C0LSET  - Input-BCD-no  default.  C0LSET  indicates  the  set  to  which  the  columns  of  ANYMAT 
belong.  If  C0LSET  is  not  one  of  the  following:  M,0,R,SG,SB,L,A,F,S,N,G,E,P,NE,FE,D,H  then  MATGPR 
will  return. 

R0WSET  - Input-BCD-default  = X.  R0WSET  indicates  the  set  to  which  the  rows  of  ANYMAT 
belong.  If  R0WSET  is  not  a legal  set  name,  R0WSET  = C0LSET. 
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4.72.7  Method 


The  BCD  parameters  C0LSET  and  R0VISET  are  converted  to  bit  positions  in  USET.  C0LSET  must 
be  one  of  the  following  17  symbols:  M,0,R,SG,SB,L,A,F,S,N,G,E,P,NE,FE,D,H  or  else  MATGPR  will 

return.  If  ROWSET  is  not  a legitimate  symbol  R0WSET  = C0LSET. 

GPL,  USET,  and  SIL  are  placed  in  core.  Each  column  and  non-zero  row  element  is  identified 
according  to  the  following  scheme: 

1.  USET  is  searched  for  the  number  of  members  belonging  to  the  g set  (p  set  if  USETD  is 
used)  before  the  current  member  of  the  matrix  set. 

2.  This  number  is  looked  up  in  SIL  to  obtain  the  internal  grid  point  number  and  type  of 
point  (scalar,  grid,  or  extra). 

3.  The  internal  grid  point  number  points  into  GPL  for  the  external  ID. 

4.72.8  Subroutines 

MATGPR  has  no  auxiliary  subroutines. 

4.72.9  Design  Requirements 

1.  Open  core  is  defined  at  /MPRTX/ . 

2.  Layout  of  open  core  is  as  follows: 

LGPL 
LUSET 
LSIL+1 


GIN0  buffer 
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4.72.10  Diagnostic  Messages 

MATGPR  may  issue  the  following  diagnostic  messages: 
3007  and  3008. 
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4.73  OUTPUT  MODULE  MATPRT  (tWTRIX  PRINTER) 

4.73.1  Entry  Point:  PRTINT 

4.73.2  Purpose 

To  print  a matrix  data  block. 

4.73.3  DMAP  Calling  Sequence 
fiATPRT  X//C,N,RC/C,N,Y  $ 

4.73.4  Input  Data  Block 

X - Matrix  data  block  to  be  printed.  If  X is  purged,  then  nothing  is  done, 

4.73.5  Output  Data  Blocks 
None. 

4.73.6  Parameters 

RC  - Indicates  whether  X is  stored  by  rows  (RC  = 1)  or  columns  (RC  = 0)  - integer  - input. 
Y - Indicates  whether  X is  to  be  printed  (Y  < 0,  do  not  print  X;  Y > 0,  print  X) 

- Integer  - Input  - default  value  = -1. 

4.73.7  Method 

Each  column  (or  row)  of  the  matrix  is  broken  into  groups  of  6 terms  (3  terms  if  complex) 
per  printed  line.  If  all  the  terms  in  a group  = 0,  the  line  is  not  printed.  If  the  entire 
column  (or  row)  = 0,  it  is  not  printed.  If  the  entire  matrix  = 0,  it  is  not  printed. 

4.73.8  Subroutines 

4.73.8.1  Subroutine  Name:  INTPRT 

1.  Entry  Point:  INTPRT 

2.  Purpose:  To  print  a matrix  data  block  using  subroutine  MATPRT. 

3.  Calling  Sequence:  CALL  INTPRT  (A,CR,0,NAME) 
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where: 

A - Storage  for  1 column  (row)  of  the  matrix  + 1 GIN0  buffer. 

pp.  ( 0 if  the  matrix  is  stored  by  columns. 

“M  if  the  matrix  is  stored  by  rows. 

Q ( 0 if  the  matrix  is  not  to  be  printed. 

^ '1  1 if  the  matrix  is  to  be  printed. 

NAME  - 8 character  name  of  the  matrix  (2  words,  4 characters  per  word). 


3.  Method:  Subroutine  MATPRT  is  called  to  print  the  matrix.  Whenever  MATPRT  returns 
for  a matrix  name  or  column/row  id  to  be  printed,  the  name  of  the  matrix  (NAME^ ,NAME^) 
or  the  column  or  row  id  (as  indicated  by  *CR*),  is  printed. 


4.73.8.2  Subroutine  Name:  MATPRT 

1.  Entry  Points:  MATPRT,  PRTMAT 

2.  Purpose:  To  print  a matrix  data  block. 

3.  Calling  Sequence:  CALL  MATPRT  ($N^ ,$N2,A,0PT,C0LNUM) 

CALL  PRTMAT  ($N^,$N2) 
C0m0N/XXMPRT/MCB(7) 


where: 

N-|  - F0RTRAN  statement  number  defining  the  return  executed  whenever  a new  page 

has  been  started  (the  calling  program  is  expected  to  print  the  matrix  and 
column  id.  C0LNUM  ==  current  column  number). 

N2  “ F0RTRAN  statement  number  defining  the  return  executed  whenever  the  column 

id  must  be  printed  in  the  middle  of  a page  (C0LNUM  = current  column  number). 


A 

0PT 


C0LNUM 

MCB 


Storage  for  1 column  of  the  matrix  + one  GIN0  buffer. 

See  subroutine  description  for  VECPRT,  below,  for  the  explanation  of 
this  argument. 

Current  column  number  being  printed  (output). 

Matrix  control  block. 
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3.  Method:  The  matrix  is  unpacked  and  printed  one  column  at  a time.  Whenever  either  of 

the  nonstandard  returns  ($N-|,$N2)  is  executed,  the  calling  program  must  call  PRTfiAT  to 
continue  the  printing  of  the  matrix. 

4.  Additional  Subroutines  Called:  VECPRT. 


4.73.8.3  Subroutine  Name:  VECPRT 

1.  Entry  Points:  VECPRT,  PRTVEC 

2.  Purpose:  To  print  a vector. 


3.  Calling  Sequence:  CALL  VECPRT  ($N^$N2,P,N,A,0PT) 

CALL  PRTVEC  ($Np$N2) 


where: 

N^  - F0RTRAN  statement  number  defining  the  return  executed  whenever  a new  page 

has  been  started  (the  calling  program  is  expected  to  print  the  vector  id  and 
any  other  subtitles  desired). 

N2  - F0RTRAN  statement  number  defining  the  return  executed  whenever  the  vector 
id  is  to  be  printed  in  the  middle  of  a page. 

P - Vector  type  and  precision. 

N - Number  of  components  in  the  vector. 

A - Location  of  the  vector. 


0PT 


0 if  all  the  vector  components  are  to  be  printed,  regardless  of  its 
sparsity,  and  if  it  is  to  be  printed  starting  on  a new  page  if  it 
will  not  fit  on  the  current  pace. 

+1  if  only  the  printed  lines  which  would  have  at  least  one  non-zero 
component  are  to  be  printed,  and  if  the  vector  is  to  be  printed  starting 
on  a new  page  if  it  will  not  fit  on  the  current  page. 

-1  if  only  the  printed  lines  which  would  have  at  least  one  non-zero 
component  are  to  be  printed,  and  if  as  much  of  the  vector  as  possible 
is  to  be  printed  on  the  current  page. 


3.  Method:  The  vector  will  be  printed  as  a single  precision  real  or  complex  vector.  The 

components  will  be  printed  6 per  line  if  real,  3 per  line  if  complex.  In  addition,  the 
first  and  last  components  of  each  line  will  be  identified  on  each  side  of  the  line  by 
their  respective  component  members.  In  addition  whenever  either  of  the  nonstandard 
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returns  ($N^,$N2)  is  executed  the  calling  program  must  call  PRTVEC  to  continue  the  printing 
of  the  vector. 

4.  Additional  Subroutines  Called:  F0RMAT. 

4.73.8.4  Subroutine  Name:  F0RMAT 

1.  Entry  Point:  F0RMAT 

2.  Purpose:  To  print  a line  of  1 to  6 real  numbers  (optionally  centered)  preceded  and 

followed  by  integer  id*s  of  the  first  and  last  number  printed. 

3.  Calling  Sequence:  CALL  FjJRMAT  (A,NUN2,N3,L1  ,L2) 

where: 

A - Array  from  which  the  1 to  6 real  numbers  are  to  be  printed. 

N1  - Index  of  the  1st  number  in  the  array  to  be  printed. 

N2  - Index  of  the  last  number  in  the  array  to  be  printed. 

N3  - Increment  to  be  used  in  extracting  the  2nd,  3rd,  etc.,  numbers  in  the 
array  to  be  printed. 

LI  - Integer  id  of  the  1st  number  to  be  printed. 

L2  - Integer  id  of  the  last  number  to  be  printed. 

3.  Method:  If  LI  and  L2  are  both  positive,  the  numbers  will  be  centered  on  the  page. 

If  either  LI  or  L2  is  not  positive,  the  numbers  will  be  printed  based  upon  the 
centering  of  6 numbers. 

4.73.9  Design  Requirements 

Open  core  is  defined  at  /XXPRTI/.  Open  core  contains  one  GIN0  buffer  followed  by  one 
unpacked  real  or  complex  single  precision  column  of  the  matrix. 


I 

I 
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4.74  OUTPUT  MODULE  SEEMAT  (PICTORIAL  MATRIX  PRINTER) 

4.74.1  Entry  Point:  SEEf-lAT 

4.74.2  Purpose 

To  show  nonzero  matrix  elements  on  printer  or  plotter  output  positioned  pictorially  by 
row  and  column  within  the  outlines  of  the  matrix. 

4.74.3  DMAP  Calling  Sequence 

SEEMAT  Ml  ,M2,M3,M4,M5//C,N,|p^^}/V,N,PFILE/V,N, PACK/C, N,PL0TTER/C,N,M0DELN1/C,N, 
M0DELB1/C,N,M0DELN2/C,N.M0DELB2  $ 

Note  that  parameters  PL0TTER,  M0DELN1 , M0DELB1 , M0DELN2  and  M0DELB2  are  all  described  in 
paragraph  4 in  section  4.74.6. 

4.74.4  Input  Data  Blocks 

Ml  \ 

M2  / 

M3  > Matrix  Data  Blocks,  any  of  which  may  be  purged. 

M4  I 
M5  I 

4.74.5  Output  Data  Blocks 

None.  The  formatted  matrix  picture  is  output  on  the  system  output  file  or  on  a plot  tape 
depending  on  the  value  of  the  first  parameter. 

4.74.6  Parameters 

1.  PRINT  implies  use  of  the  system  output  file.  (Any  value  other  than  PL0T  implies  PRINT). 
PL0T  implies  use  of  one  of  the  plotters.  Either  of  the  plotter  tapes  PLTl  or  PLT2  will  be 
used,  depending  on  the  type  of  plotter  requested. 

2.  PFILE  is  the  plot  number  (Used  only  if  first  parameter  is  PL0T). 

Input/output  variable  integer  parameter.  Frame  or  sheet  number.  The  value  of  this 
parameter  will  be  incremented  by  one  (1)  for  each  frame  (sheet)  created  by  SEEMAT. 

The  default  value  for  this  parameter  is  0. 

3.  PACK  is  reserved  for  a future  modification  that  will  allow  the  representation  of  a nonzero 
block  of  the  matrix  with  a single  character.  This  parameter  may  be  specified  as  C,N  only. 

(see  example  in  paragraph  4 below) 
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4.  Plotter  Name  and  Model  Identification  (Used  only  if  parameter  1 = PL0T.) 

Each  plotter  name  has  associated  with  it  two  model  identifiers.  Each  of  these  model 
identifiers  may  either  be  an  integer  (M0DELNi)  value  or  BCD  (M0DELBi)  value.  If  model 
identifier  **i*‘  (i  = 1,  2)  is  an  integer,  insert  its  value  for  M0DELNi ; if  model  identifier 
"i“  (i  = 1,  2)  is  BCD,  insert  its  value  for  M0DELBi.  In  either  case,  specify  the  other 
value  for  model  identifier  "i"  (M0DELBi  and  M0DELNi , respecti vely)  as  C,N  only. 

Below  is  a list  of  model  identifiers  allowable  for  each  plotter  name.  A detailed 
explanation  of  this  list  can  be  found  in  section  4 of  the  User's  Manual.  Each  plotter  has 
associated  with  it  a default  model  and  several  optional  models.  The  model  underlined  is  the 
default  model.  To  access  this  default  model,  do  not  specify  any  of  the  last  four  DMAP 
parameters.  For  example  to  specify  the  CALC0MP  765,  205  (see  section  4 of  the  User's  Manual) 
the  following  DMAP  statement  may  be  used: 

SEEMAT  Ml ,M2,M3,M4,M5//C,N,PL0T/V,N,PFILE/C,N/C,N,CALC0MP  $ 

Plotter  Name  Model  Identifiers 


13500,45 

SC  4020,0 

765.205 

765.210 

765.105 

765.110 

763.205 

763.210 

763.105 

763.110 

565.205 

565.210 

565.105 

565.110 
565,305 
565,310 

563.205 

563.210 


BL 


FAT 


iLTE,30\ 

(STE,30f 

i 3500, 30 
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Plotter  Name 


DD 


NASTRAN 


Model  Identifiers 

563,105 
563,110 
563,305 
, 563,310  / 

80, B 

IM,0  \ 

T,0  ) 

D.O  I 

M,1  ) 

T,1  \ 

0,1  / 


where: 


BL  is  a Benson-Lehner  plotter 

EAI  is  an  Electronic  Associates  plotter 

SC  is  a Stromberg  Carlson  plotter 

CALC0MP  is  a California  Computer  plotter 

DD  is  a Data  Display  plotter 

NASTRAN  is  the  NASTRAN  general  purpose  plotter 


4.74.7  Method 

The  matrix  is  partitioned  into  blocks  which  can  be  printed  on  a single  sheet  of  output  paper 
or  plotted  on  a single  frame  or  sheet  of  plotter  output  media.  Only  blocks  containing  nonzero 
elements  will  be  printed.  Row  and  column  indices  are  indicated.  The  user  of  this  module  is 
cautioned  to  make  sure  that  his  line  count  limit  is  large  enough.  A default  of  20,000  lines  is 
provided  by  NASTRAN.  This  may  be  changed  via  the  statement  "MAXLINES  = value"  in  the  NASTRAN 
Case  Control  Deck.  The  transpose  of  the  matrix  is  always  printed. 

The  columns  of  the  matrix  are  examined  for  nonzero  terms.  Let  the  matrix  be  partitioned 
into  blocks,  where  a block  consists  of  NL  columns  and  100  rows,  where  NL  is  the  number  of  data 
lines  per  page  obtained  from  /SYSTEM/.  For  each  block  containing  nonzero  terms,  a BCD  block 
image  is  stored  in  open  core  in  packed  bit  format.  Only  blocks  containing  nonzero  terms  are 
stored.  When  NL  columns  have  been  passed,  the  blocks  containing  nonzero  terms  are  printed  on 
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the  system  output  file  or  plotted.  Note  that  since  NASTRAN  matrices  are  stored  by  column,  the 
transpose  of  the  matrix  is  what  actually  appears  on  the  printed  or  plotted  output.  Blocks  used 
for  the  first  NL  columns  may  now  be  re-used  for  subsequent  groups  of  NL  columns.  This  process 
is  continued  until  all  columns  of  the  matrix  have  been  processed.  As  many  as  five  matrices  may 
be  handled  during  a single  call  to  SEEMAT. 

4.74.8  Subroutines 

The  plotter  environment  subroutines  are  utilized  by  SEEMAT.  See  section  3.4  for  descriptions 
of  the  plotter  utility  routines. 

4.74.8.1  Subroutine  MAPSET 

1.  Entry  Points:  MAPSET,  MAP 

2.  Purpose:  Converts  physical  units  to  plotter  units  for  module  SEEMAT. 

3.  Calling  Sequence:  CALL  MAPSET  (XI ,Y1 ,X2 ,Y2 ,KI1 ,KJ1 ,KI2 ,KJ2 ,L) 

CALL  MAP  (X,Y,KI,KJ) 

X,Y,Xi,Yi  = Physical  coordinates 
KI ,KJ,KIi ,KJi  = Plotter  coordinates 

L = Output  Format  Flag,  input 

1 = KI,KJ  are  integer 

2 = KI,KJ  are  real 

The  meaning  of  i follows: 

i = 1 point  is  lower  left  corner  of  frame 

i = 2 point  is  upper  right  corner  of  frame 

i = blank  point  is  an  arbitrary  point  on  frame. 
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Design  Requirements 
, 1 Open  Core  Design 


block  1 

i 

1 block  2 

block  3 

• 

• 

block  1 

1 

- 

k 

block  n 

unused  open  core 

GIN0  buffer 

'SGIN0  buffer 
(if  needed) 

Typical  Block 


Word  1 

1st  row  no.  - 1 

Word  2 

1st  col  no.  - 1 

Word  3 

Col  1 (100  bits  @ 32  bits/word) 

Word  6 

Col  2 (100  bits  @ 32 

• 

« 

bits/word 

Word  10 

Col  NL  (100  bits  @32  bits/word) 

1 not  used 
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4.74.9.2  Data  Requirements  and  Restrictions 

1.  All  nonpurged  input  data  blocks  must  be  matrices.  Error  diagnostics  will  occur  in  the 
unpacking  routines  if  an  attempt  is  made  to  input  a table  data  block  to  SEEfiAT. 

2.  If  the  number  of  blocks  needed  overflows  the  available  open  core  (e.g.,  a large  full 
matrix  can  do  this),  a nonfatal  diagnostic  message  will  be  output  on  the  System  Output  File 
and  processing  for  that  matrix  will  be  terminated.  The  user  may  decrease  NL  by  adding  a 
Case  Control  Card  LINE  = NL  as  a means  of  overcoming  this  restriction  (printer  only).  Since 
the  type  of  matrix  for  which  one  is  interested  in  seeing  the  topology  is  usually  sparse  and 
at  least  partially  banded,  this  restriction  should  not  prove  serious. 

4.74.10  Diagnostic  Messages 

Diagnostic  conditions  detected  by  SEEMAT  are  nonfatal  and  result  in  appropriate  error 
messages  and  termination  of  the  processing  of  the  current  input  matrix  data  block.  The  one 
exception  is  the  condition  of  no  open  core  for  GIN0  buffers,  which  should  not  occur  in  practice. 
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4.75  OUTPUT  MODULE  TABPT  (TABLE  PRINTER) 

4.75.1  Entry  Point:  TABPT. 

4.75.2  Purpose 

To  print  table  data  blocks. 

4.75.3  DMAP  Calling  Sequence 

TABPT  TAB1,TAB2,TAB3,TAB4,TAB5//  $ 

4.75.4  Input  Data  Blocks 

TABl  - Any  NASTRAN  data  block. 

TAB2  - Any  NASTRAN  data  block. 

TAB3  - Any  NASTRAN  data  block. 

TAB4  - Any  NASTRAN  data  block. 

TABS  - Any  NASTRAN  data  block. 

Note:  Any  or  all  input  data  blocks  can  be  purged. 

4.75.5  Output 

Each  word  in  a data  block  is  identified  as  real  , BCD,  or  integer  and  printed  on  the  system 
output  file.  The  trailer  data  is  also  printed. 

4.75.6  Parameters 
None. 

4.75.7  Method 

Subroutine  TABPRT  is  called  for  each  non-purged  input  file. 

4.75.8  Subroutines 

TABPRT  - See  subroutine  description,  section  3.4.29. 
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—4.76  OUTPUT  MODULE  PRTMSG  (MESSAGE  WRITER) 

4.76.1  Entry  Point:  PRTMSG 

4.76.2  Purpose 

To  process  a data  block  of  user-oriented  messages. 

4.76.3  DMAP  Calling  Sequence 
PRTMSG  MSG//  $ 

4.76.4  Input  Data  Blocks 

MSG  - Messages  to  be  printed  (if  purged,  nothing  is  done). 

4.76.5  Output  Data  Blocks 
None 

4.76.6  Parameters 
None 

4.76.7  Method 

In  addition  to  messages,  the  MSG  data  block  may  contain  titles  and  subtitles.  Before 
the  first  message  is  printed,  a new  page  is  started.  From  then  on,  a message  count  is  main- 
tained so  as  to  start  another  new  page  when  the  maximum  number  of  lines  per  page  is  exceeded.  All 
messages  are  assumed  to  be  only  one  line  long.  However,  there  is  logic  included  to  provide 
for  messages  of  more  than  one  line,  forcing  a new  page  at  any  time,  and  the  alteration  of 
titles  and  subtitles  at  any  time.  The  description  below  of  subroutine  WRTMSG  details  all  the 
included  logic  capability. 

4.76.8  Subroutines 

PRTMSG  uses  the  utility  routines  EJECT  and  FREAD  (see  sections  3.4.62  and  3.4.15), 

4.76.8.1  Subroutine  Name:  PRTMSG 
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1.  Entry  Point:  PRTMSG 

2.  Purpose:  To  print  the  user  messages  in  the  MSG  data  block. 

3.  Calling  Sequence:  CALL  PRTMSG 

C0MMS3N/0UTPUT/TITLE(32,6)  - See  0UTPUT  miscellaneous  table  description  in  section  2.5.  ' 

Where: 

TITLE  = NASTRAN  title,  subtitle,  label,  and  three  extra  subtitles. 

4.  Method:  Open  the  MSG  data  block,  and  skip  record  0.  If  the  MSG  data  block  does  not 

exist,  nothing  else  is  attempted.  Otherwise,  the  three  extra  subtitles  are  set  to  all 
blanks,  and  WRTMSG  is  called. 

4.76.8.2  Subroutine  Name:  WRTMSG  (General  purpose  subroutine) 

1.  Entry  Point:  WRTMSG 

2.  Purpose:  To  process  a data  block  of  user-oriented  messages. 

3.  Calling  Sequence:  CALL  WRTMSG  (MSG) 

C0MM0N/SYSTEM/  - See  SYSTEM  table  description  in  section  2. 4. 1.8. 

Where: 

MSG  = GIN0  file  name  of  the  MSG  data  block, 
and  in  /SYSTEM/ 

MAXLIN  = Maximum  number  of  lines  permitted  per  page. 

C0UNT  = Number  of  lines  thus  far  printed  on  the  current  page. 

4.  Method: 

a.  Save  the  current  NASTRAN  title,  subtitle,  and  label.  Force  the  first  message 
to  start  on  a new  page  (C0UNT41AXLIN) . 

b.  Read  one  word  (N)  from  MSG.  If  an  end-of-record  condition  occurs,  force  the 
first  message  in  the  next  record  to  start  on  a new  page  (C0UNT=MAXLIN) . Then 
repeat  this  step. 

c.  If  N < 0,  the  next  32  words  are  assumed  to  be  a replacement  for  TITLE  (1-32,N). 
Force  the  next  message  to  start  on  a new  page  (C0UNT=MAXLIN) . Repeat  step  b. 
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d.  If  N > 0,  a list  and  format  follow.  The  next  N items  are  assumed  to  be 
the  list  items.  If  U = 0,  only  a format  follows. 

e.  Read  one  word  (NF)  from  MSG.  If  KF  < 0,  MF  = number  of  lines  to  be  generated 

by  this  message  (repeat  this  step) . If  MF  = 0,  this  message  will  be  printed  starting 
on  a new  page  (C0UNT=MAXLIN,  repeat  this  step) . Unless  otherwise  instructed,  this 
subroutine  assumes  that  each  message  will  generate  only  1 line  of  output.  In  either 
case,  integer  function  EJECT  is  called  to  maintain  the  page  line  count.  If  this 
message  will  not  fit  on  this  page,  any  extra  title(s)  explicitly  specified  are  printed 
below  the  NASTRAN  title,  subtitle,  and  label. 

f.  If  NF  > 0,  NF  = size  of  the  format  (the  format  must  be  a continuous  string  of 
characters,  contrary  to  the  usual  NASTRAN  method  of  specifying  at  most  4 characters  per 
word).  The  next  NF  words  are  assumed  to  be  the  format  to  be  used  with  the  list 

items  read  in  step  d,  in  one  the  following  F0RTRAN  statements: 

WRITE  (M0,F0R)  [if  no  list  is  specified], 
or 

WRITE  (M0,F0R)  (LIST(I),  I = 1,N) 

Repeat  step  b. 

g.  When  the  end  of  the  MSG  data  block  is  encountered  in  step  b,  the  NASTRAN  title, 
subtitle,  and  label  are  restored,  and  the  MSG  data  block  is  closed  with  a rewind. 

5.  Design  Requirements: 

a.  The  message  data  block  (MSG)  must  be  opened  before  calling  WRTMSG. 

b.  In  general,  a set  of  messages  is  one  record  of  the  data  block.  Each  set  of 
messages  will  start  on  a new  page. 

4,76.9  Design  Requirements 

Open  core  is  defined  at  /XXPMSG/,  and  is  used  only  for  one  GIN0  buffer  which  is  defined 
at  the  beginning  of  open  core. 
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4.77  OUTPUT  MODULE  PRTPARM  (PARAMETER  AND  DMAP  MESSAGE  PRINTER) 

4.77.1  Entry  Point:  PRTPRM 

4.77.2  Purpose 

To  print  parameter  values  and  Df^P  messages. 

4.77.3  DMAP  Calling  Sequence 
PRTPARM  //C,N,a/C.N»3  $ 

4.77.4  Input  Data  Blocks 
None 

4.77.5  Output  Data  Blocks 
None 

4.77.6  Parameters 

a - Integer  value  (no  default  value) 

3 - BCD  value  (default  value  = XXXXXXXX) 

4.77.7  Method 

As  a parameter  printer*  use  a = 0.  There  are  two  options: 

1.  3 = parameter  name  will  cause  the  printout  of  the  value  of  that  parameter. 

Example:  PRTPARM  //C,N,0/C,N*LUSET  $ 

2.  3 = XXXXXXXX  will  cause  the  printout  of  the  values  of  all  parameters  in  the 
current  XVPS.  Since  this  is  the  default  value,  it  need  not  be  specified. 

Example:  PRTPARM  //C*N*0  $ 

As  a DMAP  message  printer,  use  a f 0.  There  are  two  options: 

1.  a > 0 causes  the  printout  of  the  message  of  category  3 where  j = |a|  and  3 is  one 
of  the  values  shown  below.  (The  number  of  me^>sages  available  in  each  category  is  also 
shown). 

Example:  PRTPARM  //C, N, 1/C, N, DMAP  $ 
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2.  a < 0 causes  the  same  action  as  a > 0 with  the  additional  action  of  program 
termination.  Thus,  PRTPARM  may  be  used  as  a fatal  message  printer. 

Example:  PRTPARM  //C,N,-2/C,N,PLA  $ 

4.77.8  Remarks 


1 . 3 is  always  a value. 

2.  TABLE  OF  3 CATEGORY  VALUES 


Rigid  Format 

Value  of  Beta 

Number  of 
Messages 

Static  Analysis 

STATICS 

4 

Static  Analysis  with  Inertia  Relief 

INERTIA 

4 

Normal  Mode  Analysis 

M0DES 

4 

Static  Analysis  with  Differential  Stiffness 

DIFFSTIF 

6 

Buckling  Analysis 

BUCKLING 

7 

Piecewise  Linear  Analysis 

PLA 

6 

Direct  Complex  Eigenvalue  Analysis 

DIRCEAD 

5 

Direct  Frequency  and  Random  Response 

DIRFRRD 

6 

Direct  Transient  Response 

DIRTRD 

5 

Modal  Complex  Eigenvalue  Analysis 

MDLCEAD 

6 

Modal  Frequency  and  Random  Response 

MDLFRRD 

7 

Modal  Transient  Response 

MDLTRD 

7 

DMAP 

DMAP 

1 

3.  For  details  on  error  messages  for  the  i^”  Rigid  Format  see  section  3.(i  + 1).2 
in  the  User's  Manual. 


4.77.9  Subroutines 


PRTPRM  has  no  auxiliary  subroutines. 


I 


I 
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I 


OUTPUT  MODULE  PRTPARM  (PARAMETER  AND  DMAP  MESSAGE  PRINTER) 


4.77.10  Diagnostic  Messages 

Values  of  a and  8 inconsistent  with  the  above  under  "Method"  will  result  in  diagnostic 
messages  from  PRTPARM. 
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4.78  MATRIX  MODULE  ADD  (ADD  TWO  MATRICES) 

4.78.1  Entry  Point:  DADD 

4.78.2  Purpose 

To  compute  [C]  = a[A]  + 3[B]. 

4.78.3  DMAP  Calling  Sequence 

ADD  A,B/C/C,Y,PLPHA=(1.0,2.0)/C,Y,BETA=(3.0,4.0)  $ 

4.78.4  Input  Data  Blocks 

A - Any  matrix  B 

B - Any  matrix  f A 

Note : A and/or  B can  be  purged. 

4.78.5  Output  Data  Blocks 
C - Matrix. 

The  type  of  C is  maximum  of  the  types  of  A,  B,  a,  3-  The  shape  of  C is  the  shape  of  A if  A 
is  present.  Otherwise  it  is  that  of  B. 

Note:  C cannot  be  purged. 

4.78.6  Parameters 

ALPHA  - Input-complex-no  default  value.  This  is  the  scalar  multiplier  for  A. 

BETA  - Input-complex-no  default  value.  This  is  the  scalar  multiplier  for  B. 

Note:  If  Im(a)  or  Im(3)  = 0.0,  the  parameter  will  be  considered  real. 

4.78.7  Method 

If  [A]  is  not  purged,  the  number  of  columns,  rows,  and  form  of  [C]  = number  of  columns,  rows, 
and  form  of  [A].  Otherwise  the  [B]  descriptors  are  used.  The  type  of  [C]  is  the  maximum 
compatible  type  of  [A],  [B],  ALPHA  and  BETA.  ALPfiA  and  BETA  are  assumed  to  be  real  if  their 
imaginary  parts  are  zero. 
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4.78.8  Subroutines 

ADD  - See  subroutine  description,  Section  3.5.10. 

4.78.9  Design  Requirements 

Open  core  is  defined  at  /DADDA/. 

4.78.10  Diagnostic  Messages 
None. 
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4.79  MATRIX  MODULE  MPYAD  (MULTIPLY  ADD) 

4.79.1  Entry  Point:  DMPYAD 

4.79.2  Purpose 

MPYAD  performs  the  multiplication  of  two  matrices  and,  optionally,  addition  of  a third 
matrix  to  the  product:  [D]  = [A][B]  +[C] 

4.79.3  DMAP  Calling  Sequence 

MPYAD  A,B,C/D/C,N,T/C,N,SIG[nIAB/C,N,SI6NC/C,N,PREC  $ 

4.79.4  Input  Data  Blocks 

A - Left  hand  matrix  in  the  matrix  product  [A][B] 

B - Right  hand  matrix  in  the  matrix  product  [A][B] 

C - Matrix  to  be  added  to  [A][B] 

Notes : 

1.  If  no  matrix  is  to  added,  C must  be  purged. 

2.  A,  B,  C must  be  physically  different  data  blocks. 

3.  A and  B must  not  be  purged. 

4.  Either  A or  B (but  not  both)  may  be  a NASTRAN  diagonal  matrix.  In  this  case, 
C must  be  purged. 

4.79.5  Output  Data  Block 

D - Matrix  resulting  from  the  MPYAD  operation. 

Note:  D may  not  be  purged. 

4.79.6  Parameters 

( 1 , perform  [A]^[B] 

T - Integer-input-no  default.  T = (o.  perform  [A][B] 
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SIGNAB  - Integer-input-no  default. 


SIGNC  - Integer-input-no  default. 


PREC  - Integer-input-no  default. 


SIGNAB 


+1 , perform  [A][B] 
-1,  perform  -[A][B] 


SIGNC 


PREC 


(+],  add  [C] 

|-1,  subract  [C] 

!1,  elements  of  [D]  will  be  output  in 
single-precision. 

2,  elements  of  [D]  will  be  output  in 
double-precision. 


4.79.7  Examples 

1.  [0]  = [A][B]  + [C]  (D  double  precision) 

MPYAD  A, B, C/D/C, N, 0/C, N, 1/C, N, 2 $ 

2.  [D]  = [A]^[B]  - [C]  (D  single  precision) 

MPYAD  A,B,C/D/C,N,1/C,N,1/C,N,-1/C,N,1  $ 

3.  [D]  = -[A][B]  (D  double  precision) 

MPYAD  A,B,/D/C,N,0/C,N,-1/C,N,0/C,N,2  $ 

4.79.8  Method 


DMPYAD  reads  the  trailers  for  the  data  blocks  A,  B and  C.  /MPYADX/  is  initialized.  If 
neither  [A]  nor  [B]  is  diagonal,  MPYAD  is  called,  the  trailer  for  D is  written,  and  the  module 
exits.  Otherwise,  /DMPYX/  is  initialized,  and  DMPY  is  called  to  perform  the  diagonal 
multiplication.  If  the  matrix  [C]  is  present,  /ADDX/  is  initialized,  and  ADD  is  called  to  perform 
the  matrix  addition.  The  trailer  for  D is  written  and  the  module  exits. 


4.79.9  Subroutines 

DMPYAD  calls  the  following  matrix  operations: 

MPYAD  (see  section  3.5.12  for  details) 

DMPY  (see  section  3.5.21  for  details) 

ADD  (see  section  3.6.10  for  details) 

4.79.10  Design  Requirements 

4.79.10.1  Allocation  of  core  storage 
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See  descriptions  for  MPYAD,  DMPY  and  ADD. 

4.79.10.2  Environment 

The  module  MPYAD  consists  of  one  subroutine,  DMPYAD.  One  scratch  file  is  used.  Three 
common  blocks  define  open  core,  one  for  each  of  the  three  overlay  segments  containing  the 
matrix  operations: 

/MPYAID/  included  at  end  of  segment  containing  MPYAD. 

/MPYA2D/  included  at  end  of  segment  containing  DMPY. 

/MPYA3D/  included  at  end  of  segment  containing  ADD. 
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4.80  MATRIX  MODULE  S0LVE  (SOLVES  THE  MATRIX  EQUATION  [A][X]  = [B]) 

4.80.1  Entry  Point:  S0LVE 

4.80.2  Purpose 

To  solve  the  matrix  equation. 


[A][X]  = + [B] 


(1) 


4.80.3  DMAP  Calling  Sequence 

S0LVE  A,B/X/V , Y ,SYM/V , Y ,S IGN/V , Y ,PREC/V ,Y ,TYPE  $ 


4.80.4  Input  Data  Blocks 

A - A square  real  or  complex  matrix. 

B - A rectangular  matrix. 

Note:  If  B is  purged,  the  identity  matrix  is  assumed. 


4.80.5  Output  Data  Blocks 

X - A rectangular  matrix. 

4.80.6  Parameters 

SYM  - Input-integer-default  = 0 

SIGN  - input-integer-default  = 1 

PREC  - Input-integer-default  = 1 
TYPE  - Input-integer-default  = 1 


( 0 - use  unsymmetric  decomposition 
/ 1 - use  symmetric  decomposition. 

/-I  - try  symmetric  decomposition,  use 
unsymmetric  if  [A]  is  singular. 

I 1 - solve  [A][X]  = [B] 
f-1  - solve  [A][X]  = -[B] 

{ 1 - use  single  precision  arithmetic 
( 2 - use  double  precision  arithmetic 

II  - output  type  of  matrix  [X]  is  real 
single  precision 

2 - output  type  of  matrix  [X]  is  real 
double  precision 
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3 - output  type  of  matrix  [X]  is  complex 

single  precision 

4 - output  type  of  matrix  [X]  is  complex 

double  precision 


4.80.7  Method 

Depending  upon  the  SYM  flag  and  the  type  of  [A],  either  SDC0MP  CDC0MP,  or  DEC0MP 
is  called  to  form 


[A]  = [L][U]  . 

FBS  or  GFBS  is  called  to  solve 

[L][Y]  = 1 [B]  , 
and 


[U][X]  = [Y] 


4.80.8  Subroutines 

The  above  mentioned  subroutines  are  the  only  ones  called  by  S0LVE  and  are  documented 
in  section  3.5. 

4.80.9  Design  Requirements 

The  appropriate  subroutines  should  be  referenced  for  the  design  requirements  peculiar 
to  each  routine. 

4.80.10  Diagnostic  Messages 


The  individual  routines  should  be  referred  to  for  diagnostic  messages. 
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4.81  MATRIX  MODULE  DEC0MP  (MATRIX  DECOMPOSITION) 

4.81.1  Entry  Point:  DDC0MP 

4.81.2  Purpose 

To  decompose  a square  matrix  [A]  into  lower  [L]  and  upper  [U]  triangular  factors. 

4.81.3  DMAP  Calling  Sequence 

DEC0MP  A/L,U/V,Y,KSYM/V,Y,CH0LSKY/V,N,MINDIAG/V,N,DET/V,N,P0WER/V,N,SING  $ 

4.81.4  Input  Data  Blocks 

A - A square  matrix. 

4.81.5  Output  Data  Blocks 

L - Lower  triangular  factor  of  [A]. 

U - Non-standard  upper  triangular  factor  of  [A]. 

4.81.6  Parameters 


KSYM 

- Input-integer-no  default.  1,  use  symmetric  decomposition.  0,  use 
unsymmetric  decomposition. 

CH0LSKY 

- Input-integer-default  =0.  1,  use  Cholesky  decomposition.  0,  do  not  use 

Cholesky  decomposition. 

MINDIAG 

- Output-real-no  default.  The  minimum  diagonal  term  of  [U]. 

DET 

- Output-complex  single  precision-no  default.  The  scaled  value  of  the 
determinant  of  [A]. 

* P0VJER 

- Output-integer-no  default.  Integer  P0WER  of  10  by  which  DET  should 
be  multiplied  to  obtain  the  determinant  of  [A]. 

SING 

- Output-integer-no  default.  SING  is  set  to  -1  if  [A]  is  singular. 

4.81.7  Method 

Depending  upon  the  type  of  [A]  and  the  KSYM  flag,  a calling  sequence  is  set  up,  and  either 
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CDC0MP,  DEC0MP,  or  SDC0MP  is  called. 

4.81.8  Subroutines 

The  major  subroutines  used  are  DEC0MP,  CDC0MP  and  SDC0MP.  Descriptions  of  these  sub- 
routines can  be  found  in  sections  3.5.15,  3.5.16,  and  3.5.14  respecti vely. 

4.81.9  Design  Requirements 

The  individual  subroutine  writeups  should  be  consulted  for  the  particular  restrictions 
of  each  routine. 

4.81.10  Diagnostic  Messages 

See  the  appropriate  subroutine  descriptions. 


4.81-2 


miRIX  MODULE  PBS  (FORWARD-BACKWARD  SUBSTITUTION) 


4.82  MATRIX  MODULE  PBS  (FORWARD-BACKWARD  SUBSTITUTION) 

4.82.1  Entry  Point:  DPBS 

4.82.2  Purpose 

To  solve  the  equation, 

[L]  [U]  [X]  = ± [B]  (1) 

where  [L]  and  [U]  are  the  upper  and  lower  triangular  factors  obtained  via  matrix  module  DEC0MP, 

4.82.3  DMAP  Calling  Sequence 

FBS  L.U.B/X/C.N.A/C.N.B/C.N.C/C.M.D  $ 

4.82.4  Input  Data  Blocks 

L,U  - Matrices  output  from  module  DEC0MP. 

B - Rectangular  matrix. 

4.82.5  Output  Data  Blocks 

X - Rectangular  matrix. 


4.82.6  Parameters 


n matrix  [L][U]  is  symmetric 
A - Input-integer-no  default. j 

‘o  matrix  [L][U]  is  unsymmetric 

( 1 solve  [L][U][X]  = [B] 

B - Input-integer-no  default.] 

'-1  solve  [L][U][X]  = -[B] 

I 1 - use  single  precision  arithmetic 
C - Input-integer-no  default.] 

( 2 - use  double  precision  arithmetic 

- Inout-integer-no  default.(l  - output  [X]  in  single  precision 
D { 

'2  - output  [X]  in  double  precision 

4.82.7  Method 


Depending  upon  the  value  of  the  parameter  A,  either  FBS  or  GFBS  is  called. 
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4.82.8  Subroutines 

The  above  routines  are  the  only  ones  called  by  DFBS.  Their  descriptions  are  given  in 
section  3.5.17  for  FBS  and  3.5.19  for  GFBS. 

4.82.9  Design  Requirements 

The  appropriate  routines  should  be  referenced  for  their  individual  requirements. 

4.82.10  Diagnostic  Messages 

The  individual  subroutines  should  be  referred  to  for  the  messages. 


4.82-2 
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4.83 

4.83, 

4.83. 


4.83 

4.83 


MATRIX  MODULE  PARTN  (PARTITION  A MATRIX) 

1 Entry  Point:  PARTNl 

2 Purpose 

To  partition  [A]  into  [All],  [A12],  [A21 ] and  [A22]: 

fAll  • A21"l 

I 

AT  2 I A22 


[A]=^ 


(1) 


3 DMAP  Calling  Sequence 

PARTN  A, RP, CP/All, A12,A21,A22/V,Y,$YM/V,Y,TYPE/V,Y,F0RMVV,Y.F0RM2/V,Y,F0RM3/V,Y,F0RM4  $ 

4 Input  Data  Blocks 

A - Matrix  to  be  partitioned. 

RP  - Row  partitioning  vector  - single  precision  column  vector. 

CP  - Column  partitioning  vector  - single  precision  column  vector. 

Notes: 

1.  If  A is  purged,  PARTN  returns. 

2.  If  RP  is  purged,  A is  partitioned  as  follows: 


3. 


4. 


[A]==> 


If  CP  is  purged  and  SYM  > 0,  A is  partitioned  as  follows 


If  CP  is  purged  and  SYM  ^ 0,  A is  partitioned  as  follows: 

[A] 


Air 

-A12_ 

partitioned 

[All  1 

A21] . 

partitioned  i 

All 

‘ A2in 
1 

J12 

• A22_ 

(2) 


(3) 


(4) 


where  RP  is  used  as  both  the  row  and  column  parti ti oner. 
5.  RP  and  CP  cannot  both  be  purged. 
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4.83.5  Output  Data  Blocks 

All  - Partition  of  A. 

A12  - Partition  of  A. 

A21  - Partition  of  A. 

A22  - Partition  of  A. 

Notes : 

1.  Any  or  all  output  data  blocks  can  be  purged. 

2.  For  the  shape  of  outputs  (number  of  rows  and  columns) 
see  Section  4.83.7  below. 


4.83.6  Parameters 


SYM  chooses  between  a symmetric  partition  and  an 
SYM  - Input-integer-defaul t*-l . unsymmetric  partition.  If  SYM^O,  CP  is  used  as 

RP.  If  SYM  > 0,  CP  and  RP  are  distinct. 


TYPE  - 


Input-integer-defaul t = 0. 


Output-integer 


F0RM1 


{Input-integer-default 
Output-integer 


= 0. 


F0RM2  - 
F0RM3  - 
F0RM4  - 


Type  of  output  matrices  0 _<  TYPE  £ 4;  default  is 
logical  choice  based  on  matrix  A and  requested 
partitions. 

Type  of  output  matrices  produced. 

Form  of  All,  0 < F0RM1  <.  8;  default  uses  logical 
choice  based  on  matrix  A. 

Form  of  All  produced. 

Same  as  F0RM1  but  applied  to  A12. 

Same  as  F0RM1  but  applied  to  A21 . 

Same  as  F0RM1  but  applied  to  A22. 


4.83.7  Method 

Let  N1  = number  of  non-zero  terms  in  RP. 
Let  N2  = number  of  non-zero  terms  in  CP. 
Let  NR0WA  = number  of  rows  in  A. 

Let  NC0LA  = number  of  columns  in  A. 

CASE:1  RP  purged. 

All  is  a (NR0WA-N2)  x NC0LA  matrix. 
A12  is  a N2  X NC0LA  matrix. 

A21  is  not  written. 

A22  is  not  written. 
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CASE  2 


2: 

CP 

All 

i s 

A12 

is 

A21 

is 

A22 

is 

3; 

CP 

All 

is 

A12 

is 

A21 

is 

A22 

is 

CASE  4:  Neither  RP  nor  CP  purged. 

All  is  a (NR0WA  - N2)  x (NC0LA  - Nl)  matrix. 
A12  is  a N2  X (NC0LA  - Nl ) matrix. 

A21  is  a (NR0WA  - N2)  x Nl  matrix. 

A22  is  a N2  X Nl  matrix. 


In  general  iT  a.-i  e [A],  then; 

* J 

a.j  e [All]  if  RP(J)  = CP(I)  = 0 

a.,  e [A12]  if  CP(I)  f 0,  RP(J)  = 0 

a.j  e [A21]  if  CP(I)  = 0,  RP(J)  f 0 

a.j  e [A22]  if  CP(I)  f 0,  RP(J)  0 


4.83.8  Subroutines 

4.83.8.1  Subroutine  Name:  PARTN2 

1.  Entry  Point:  PARTN2 

2.  Purpose:  Initialization  routine  for  PARTNl  and  MERGEl . It  calls  PARTN3  to  build 

the  bit  strings  from  the  partitioning  vectors  CP  and  RP  and  sets  default  options  based 
on  SYM. 
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3.  Calling  Sequence:  CALL  PARTN2  (CP,RP,C0RE,BUF) 

CP  = GIN0  file  name  of  column  partitioning  vector 
RP  = GIN0  file  name  of  row  partitioning  vector 
C0RE  = Location  of  first  word  open  core 
BUF  = Location  of  GIN0  buffer. 

4.83.8.2  Subroutine  Name:  PARTN3 

1.  Entry  Point:  PARTN3 

2.  Purpose:  Builds  bit  strings  as  directed  by  PARTN2. 

3.  Calling  Sequence:  CALL  PARTN3  (FILE, SIZE, 0NES,IZ,NZ, HERE, BUF, C0RE) 

FILE  = GIN0  file  name 

SIZE  = Length  of  partitioning  vector 

0NES  = Number  of  non-zero  terms  in  vector 

IZ  = Pointer  to  working  core 

NZ  = Length  of  working  core 

HERE  = Logical  Flag 

BUF  = Location  of  GIN0  buffer 

C0RE  = Location  of  open  core 

4.83.9  Design  Requirements 

Open  core  is  defined  at  /PARTNl/. 

4.83.10  Diagnostic  Messages 

Messages  2166,  2167,  2168,  2169,  2170,  2171,  2172,  2173,  2174,  2175,  2176,  3002,  and  3008  may 
be  issued. 
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4.84  MATRIX  MODULE  MERGE  (MERGE  MATRICES  TOGETHER) 


4.84.1  Entry  Point:  MERGEl 

4.84.2  Purpose 
To  form 


[A]  <= 


'All 

I A21' 

I 

LAI  2 

I A22J 

4.84.3  DMAP  Calling  Sequence 

MERGE  A1 1 ,A12,A21  ,A22,RP,CP/A/V,  Y,SYM/V,  Y,TYPE/V,  Y,Fj3RM  $ 

4.84.4  Input  Data  Blocks 

All  - Matrix  M12,  A21,  A22. 

A12  - Matrix  ^ All,  A21,  A22. 

A21  - Matrix  ^ All,  A12,  A22. 

A22  - Matrix  / All,  A1 2,  A21. 

RP  - Row  partitioning  vector  - single  precision  vector. 

CP  - Column  partitioning  vector  - single  precision  vector. 


(1) 


Notes: 

1.  Any  or  all  of  All,  A12,  A21 , A22  can  be  purged  which  implies  [AIJ]  = [0]. 

2.  RP  and  CP  cannot  both  be  purged. 

3.  See  method  section  for  meaning  when  RP  or  CP  is  purged, 

4.84.5  Output  Data  Blocks 

A - Merged  matrix  from  All,  A12,  A21 , A22. 

Notes:  A cannot  be  purged. 
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4.84.6  Parameters 

SYM  - Input-integer-no  default.  SYM  <0,  CP  is  used  as  RP.  SYM  > 0,  CP  and  RP  are 
distinct. 

TYPE  - Input-integer-no  default.  Type  of  A,  1 implies  A is  real  single  precision, 

2 implies  A is  real  double  precision,  3 implies  A is  complex  single  precision, 

4 implies  A is  complex  double  precision. 

FJIRM  - Input-integer-no  default.  Form  of  A (see  section  2.2). 

4.84.7  Method 

MERGE  is  the  inverse  of  PARTN  in  the  sense  that  if  All,  A12,  A21 , A22  were  produced  by 
PARTN  using  RP,  CP,  F0RM,  SYM,  and  TYPE  from  A,  MERGE  will  reproduce  A.  See  PARTN  (section 
4.83)  for  options  on  RP,  CP  and  SYM. 

4.84.8  Subroutines 

Subroutines  PARTN2  and  PARTN3  are  used.  These  routines  are  described  in  Section  4.83. 

4.84.9  Design  Requirements 

Open  core  is  defined  at  /MERGEl/. 

4.84.10  Diagnostic  Messages 

Messages  2161,  2162,  2163,  2164,  2^70,  2171,  2172,  2173,  2174,  2175,  2176,  3002,  and  3008 
may  be  issued. 
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4.85  MATRIX  MODULE  TRNSP  (TRANSPOSE  A MATRIX). 

4.85.1  Entry  Point:  DTRANP 

4.85.2  Purpose 

To  form  [A]^  given  [A]. 

4.85.3  DMAP  Calling  Sequence 
TRNSP  A/AT  $ 

4.85.4  Input  Data  Blocks 

A - Any  matrix  data  block. 

Note:  If  [A]  is  purged,  TRNSP  returns. 

4.85.5  Output  Data  Blocks 

AT  - The  matrix  transpose  of  [A]. 

Note:  AT  cannot  be  purged. 

4.85.6  Parameters 

None.  « 

4.85.7  Method 

Subroutine  TRNSP  is  called. 

4.85.8  Subroutines 

TRNSP  - See  subroutine  description,  section  3.5,25. 

4.85.9  Design  Requirements 

Open  core  is  defined  at  /DTRANX/.  Eight  scratch  files  are  used. 
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4.86  MATRIX  MODULE  SMPYAD  (STRING  MULTIPLY  ADD) 

4.86.1  Entry  Point:  SMPYAD 

4.86.2  Purpose 

To  multiply  a series  of  matrices  together. 

4.86.3  DfW  Calling  Sequence 

SMPYAD  A,B,C,D,E,F/G/C,N,N/C,N,SIGNX/C,N,SIGNF/C,N,PG/C,N,TA/C,N,TB/C,N,TC/C,N,TD  $ 

4.86.4  Input  Data  Blocks 

Up  to  5 matrices  to  be  multiplied  together,  from  left  to  right. 

Matrix  to  be  added  to  the  above  product. 

Notes : 

1.  If  one  of  the  five  multiplication  matrices  is  required  in  the  product  (see 
parameter  "N“  below)  and  is  purged,  the  multiplication  will  not  be  done. 

2.  If  the  F matrix  is  purged,  no  matrix  will  be  added  to  the  product. 

4.86.5  Output  Data  Blocks 

G - Resultant  matrix  (may  not  be  pre-purged). 

4.86.6  Parameters 

N - Number  of  matrices  involved  in  the  product  - integer  - input. 

SIGNX  - Sign  of  the  product  matrix  (e.g.,  [A][B][C][D][E])  - integer  - input. 

1 for  plus,  -1  for  minus. 

SIGNF  - Sign  of  the  matrix  tc  be  added  to  the  product  matrix  - integer  - input. 

1 for  plus,  -1  for  minus. 

PG  - Output  precision  of  the  final  result  - integer  - input. 

1 for  single  precision,  2 for  double  precision. 
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TA 

TB 

TC 

TD 


I 


Transpose  indicators  for  the  [A][B][C]  and  [D]  matrices  (1  if  transposed 
matrix  to  be  used  in  the  product;  0 if  untransposed)  - integer  - input. 


Note:  All  the  parameters  except  "N"  have  default  values.  They  are  these: 

1.  SIGiTX  = 1 (sign  of  product  is  plus) 

2.  SIGNF  = 1 (sign  of  added  matrix  is  plus) 

3.  PG  =1  (single  precision  result) 


4.  TA 


TB 

TC 

TD 


0 (use  untransposed  [A],  [B],  [C],  and  [D]  matrices  in  the  product) 


4.86.7  Method 

The  method  is  the  same  as  for  the  MPYAD  module  with  one  exception  and  one  addition: 

1.  None  of  the  matrices  may  be  diagonal. 

2.  Except  for  the  final  product,  all  intermediate  matrix  products  are  generated 
in  double  precision. 

The  matrices  are  multiplied  together  from  right-to-left,  i.e.,  the  first  product  calculated 
is  the  product  of  matrix  n-1  and  matrix  n. 

4.86.8  Subroutines 

MPYAD  is  called  (see  section  3.5.12  for  details). 


4.86.9  Design  Requirements 

1.  Two  scratch  files  are  required. 

2.  Open  core  is  the  /MPYADX/  common  block,  the  same  one  as  used  by  the  MPYAD  module, 
(see  section  4.79) . 


4.86-2 


STRUCTURAL  ELEMENT  DESCRIPTIONS 


4.87  STRUCTURAL  ELEMENT  DESCRIPTIONS 

The  finite  structural  element  subroutines  used  in  NASTRAN  have  a number  of  different  calcu- 
lations associated  with  them.  These  subroutines  are  found  in  the  modules  SMAl , SMA2,  SSGl , SDR2, 
DSMGl,  PLA3  and  PLA4. 

All  modules  excluding  IFP  having  anything  to  do  with  the  NASTRAN  structural  elements,  their 
geometry,  or  associated  data  blocks,  use  the  basic  element  data  found  in  common  block  /GPTAl/. 
/GPTAl/  is  set  in  its  own  block  data  subprogram,  and/or  by  (in  the  presence  of  dummy-user-elements) 
the  routine  DELSET.  Refer  to  Section  2. 5. 2.1  for  further  information  regarding  /GPTAl/. 

The  element  subroutines  in  the  SMAl  (Structural  flatrix  Assembler  - Phase  1)  module  generate 

element  stiffness  matrix  partitions.  The  stiffness  matrix,  [K],  for  a structural  element  consists 

of  a 6 by  6 partition  for  each  combination  of  the  connected  grid  points.  For  example,  a R0D 

element  is  connected  to  two  grid  points,  "a"  and  ”b".  The  stiffness  matrix  partitions  are:  [K^^], 

aa 

[Kab]»  and  A triangular  element  (e.g.,  TRMEM)  is  connected  to  three  points.  It  will 

generate  nine  partitions:  [K^^],  [K^^],  [K^^],  [K^^],  [K^^]  and  In 

order  to  generate  a particular  partition,  ‘•‘t  is  often  necessary  to  generate  [K].  Hov/ever, 

only  those  partitions  where  i is  the  pivot  point  (see  section  1.8)  and  j = l,2,...,n  (n 

being  the  number  of  grid  points  associated  with  the  element),  are  output  by  an  element  stiffness 
matrix  generation  subroutine,  e.g.,  KR0D.  These  partitions  are  output  from  an  element  subroutine 
in  the  form  of  calls  to  the  "insertion"  subroutine  SMAIB  (see  Section  4.27).  There  is  one  call 
for  each  6 by  6 partition  if  the  element  is  a structural  element,  and  one  call  for  each  1 by  1 

p 

"partition"  if  the  element  is  a scalar  element.  The  unused  partitions  are  recalculated  and  used 
when  j ^ i appears  as  a pivot  point  in  a subsequent  ECPT  record.  An  alternate  procedure  for 
matrix  generation,  which  is  not  used,  would  be  to  calculate  all  of  the  element  matrices  once  and 
store  them  on  an  auxiliary  storage  unit  for  use  v/hen  needed.  The  alternate  procedure  is  less 
efficient  for  large  problems,  where  efficiency  really  counts,  because  tlie  recalculation  time  is 
less  than  the  time  required  to  recover  element  matrices  from  the  auxiliary  unit. 

4 

Element  structural  damping  matrices,  [K  ],  are  proportional  to  the  element  stiffness  matrices, 
the  proportionality  constant  being  g^,  the  structural  damping  coefficient  input  on  a material 
(e.g.,  MATl)  bulk  data  card.  An  element  stiffness  matrix  generation  routine,  e.g.,  KR0D,  of 
module  SMAl  will  output,  through  the  calling  sequence  to  subroutine  SMAIB:  1)  an  element  stiffness 
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matrix  partition,  2)  the  structural  damping  coefficient,  and  3)  a flag,  which  will  signal  SMAIB 
that  the  scalar  multiplication  of  the  matrix  by  the  structural  damping  coefficient  is  to  take 
place. 

The  element  subroutines  (e.g.,  MR0D,  MC0NMX)  in  the  SMA2  (Structural  Matrix  Assembler  - Phase 
2)  module  generate  element  mass  matrix  partitions.  The  remarks  in  the  third  paragraph  above 
concerning  element  stiffness  matrix  partitions  apply  here  also  when  the  reader  makes  the  substi- 
tutions: "mass"  for  "stiffness",  "[M]"  for  "[K]“,  "MR0D"  for  "KR0D",  and  "S!^2B"  for  "SMAIB". 

Only  the  element  VISC  and  DAMPi  generate  viscous  damping  terms  which  contribute  to  the 
damping  matrix,  ^nd  conversely,  the  only  elements  which  contribute  to  [Bgg]  are  the  VISC 

and  DAMPi  elements.  These  terms  are  calculated  in  nodule  SMA2.  The  damping  matrix  partitions 
are  passed  to  subroutine  SMA2B  in  a fashion  similar  to  that  for  mass  matrix  partitions. 

Element  static  loading  functions  due  to  temperature  and  enforced  deformations  are  generated 
in  the  SSGl  (Static  Solution  Generator  - Phase  1)  module,  and  the  mathematical  descriptions  for 
these  functions  are  given  in  this  Section  (4.87).  (See  the  Module  Functional  Description  for 
SSGl,  Section  4.41,  for  the  equations  governing  direct  applied  loads  and  gravity  loads.)  The 


Section  4.41 ) . 

Element  stresses  and  forces  due  to  displacements  are  calculated  in  the  SDR2  (Stress  Data 
Recovery  - Phase  2)  module.  These  calculations  are  performed  in  two  phases.  Phase  1 generates 
element  stress  matrices  for  each  element  for  which  the  user  has  requested  element  stress  and/or 
force  output.  These  element  stress  matrices  are  written  on  a scratch  file  for  use  in  phase  2. 

In  phase  2,  the  displacement  vector  for  the  current  subcase  is  read  into  core,  and,  for  each 
element  for  which  stress  and/or  force  output  is  requested,  the  corresponding  element  stress  matrix 
is  read  and  passed  to  the  phase  2 element  subroutine.  The  phase  2 element  subroutine  then 
calculates  element  stresses  and  forces.  A list  of  the  stresses  and  forces  output  in  phase  2 for 
each  element  is  given  in  Sections  2.3.51  and  2.3.52  respectively. 

Differential  stiffness  matrix  partitions  are  calculated  for  some  elements.  These  are  calcu- 
lated in  module  DSMGl  (Differential  Stiffness  Matrix  Generator  - Phase  1)  for  large  displacement 
analysis  and  buckling  problems.  The  output  of  an  element  routine  of  the  DSMGl  module  are  the 
6 by  6 differential  stiffness  matrix  partitions,  where  i is  the  pivot  point.  The  "insertion" 

subroutine  for  module  DSMGl,  similar  to  subroutine  SMAIB  of  module  SMAl , is  DSlb. 
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Nonlinear,  plastic  effects  in  the  structure  may  be  determined  by  solving  for  the  element 
stress  and  modifying  the  elastic  properties  of  an  element  in  an  iterative  loop.  Element  stresses 
are  calculated  in  the  PLA3  (Piecewise  Linear  Analysis  - Phase  3)  module,  and  element  stiffness 
matrices  with  modified  elastic  properties  are  calculated  in  the  PLA4  (Piecewise  Linear  Analysis  - 
Phase  4).  The  outputs  of  an  element  subroutine  of  the  PLA3  module  are:  1)  element  stresses, 

which  have  the  same  formats  as  the  element  stresses  output  from  a phase  2 element  subroutine  of 
module  SDR2,  and  2)  updated  incremental  stress  data  in  the  ESTNLl  data  block,  which  are  used  as 
input  to  the  PLA3  module  in  the  next  pass  of  the  Piecewise  Linear  Analysis  (PLA)  Rigid  Format 
DMAP  loop.  The  outputs  of  an  element  subroutine  of  the  PLA4  module  are:  1)  element  stiffness 

matrix  partitions  (the  remarks  on  element  stiffness  matrix  partitions  in  the  second  paragraph 
apply  here  as  well,  except  that  the  "insertion"  subroutine  is  PLA4B)  and  2)  updated  incremental 
stress  data  in  the  ECPTNLl  data  block,  v^hich  are  used  as  input  to  the  PLA4  module  in  the  next  pass 
of  the  PLA  Rigid  Format  DMAP  loop. 

The  following  data  are  needed  to  generate  the  element  matrices  in  the  above  modules. 

1.  Element  Connection  and  Properties  Table  (ECPT)  Data. 

2.  Transformation  matrices,  [T^. ],  from  the  global  coordinate  system  to  the  basic  coordinate 
system. 

3.  Material  Property  Data. 

4.  Element  Deformation  Data  (used  only  in  modules  SSGl , SDR2  and  DSGMl). 

5.  Grid  Point  Temperature  Data  (used  only  in  modules  SSGl,  SDR2  and  DSGMl). 

The  ECPT  data  are  input  to  an  element  subroutine  by  a module  driver  from  the  ECPT  data  block 
or  the  EST  (Element  Summary  Table)  data  block.  The  data  in  each  of  these  data  blocks  are  identical, 
from  an  individual  element  subroutine  point  of  view.  The  ECPT  data  block  is  used  in  modules  SMAl , 
SMA2  and  DSGMl;  the  EST  data  block  is  used  in  modules  SSGl  and  SDR2.  For  the  special  case  of 
Piecewise  Linear  Analysis,  the  ECPTNL  (Element  Connection  and  Properties  Table  for  Nonlinear 
Elements)  data  block  is  used  in  module  PLA4,  and  the  ESTNL  (Element  Summary  Table  for  Nonlinear 
Elements)  data  block  is  used  in  module  PLA3.  The  ECPT  and  EST  data  blocks  are  generated  in  the 
Table  Assembler  (TAl)  module  (see  Section  4.26)  from  the  following  data  blocks:  ECT  (Element 

Connection  Table,  Section  2. 3. 4.1),  EPT  (Element  Property  Table,  Section  2. 3. 2. 5),  BGPDT  (Basic 
Grid  Point  Definition  Table,  Section  2. 3. 3. 5),  and  GPTT  (Grid  Point  Temperature  Table,  Section 
2. 3. 7. 2). 
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The  ECPT  data  for  an  element  consist  of  four  separate  parts:  1)  connection  data  2)  property) 

data,  3)  basic  grid  point  definition  data  and  4)  the  element  temperature  for  material  properties. 
The  connection  data  consists  of  data  on  a connection  bulk  data  card  (e.g.,  CR0D) , except  for  the 
property  identification  number  (the  property  identification  number  on  the  connection  and  property 
cards  is  used  only  to  relate  the  two  cards  during  the  assembly  of  the  ECPT  and  EST  data  blocks, 
and  it  does  not  appear  in  either  the  connection  data  or  property  data).  Note  also  that  grid  point 
identification  numbers  have  been  converted  to  internal  numbers.  Scalar  Index  List  (SIL)  numbers, 
which  correspond  to  degrees  of  freedom  numbers.  Property  data  consist  of  data  on  a property  bulk 
data  card  (e.g.,  PR0D)  with  the  above  noted  exception.  Basic  grid  point  definition  data  consist 
of,  for  each  grid  point  connecting  the  element,  1)  the  identification  number  of  the  coordinate 
system  in  which  displacements  are  defined  at  the  grid  point  and  2)  the  coordinates  of  the  grid 
point  in  the  basic  coordinate  system.  The  element  temperature  for  material  properties  is  the 
average  value  given  for  each  element  in  the  GPTT  data  block.  This  temperature  is  placed  in  the 
ECPT/EST  data  in  the  Table  Assembler  module  from  the  element  temperatures  in  the  GPTT  data  block 
and  the  set  identification  number,  n,  from  the  TEMPERATURE(MATERIAL)  = n card  in  the  User's  Case 
Control  Deck.  Note  that  n is  transmitted  to  the  Table  Assembler  via  the  tenth  word  of  /SYSTEM/ 

(see  Section  2.4.1 .8) . 

The  transformation  matrices,  [T^.],  from  the  global  coordinate  system  to  the  basic  coordinate 
system,  are  supplies  to  an  element  subroutine  by  the  utility  routines  TRANSD  and  TRANSS.  These 
utility  routines  use  the  CSTM  (Coordinate  System  Transformation  Matrices,  Section  2.3. 3.4)  data 
block  in  conjunction  with  the  basic  grid  point  definition  data  at  a point  i to  compute  [T^]. 

Hence  all  modules  which  deal  with  element  calculations  require  the  CSTM  data  block  as  input. 

TRANSD  returns,  to  an  element  subroutine,  a double  precision  matrix,  [T^],  used  by  element 
routines  in  the  following  modules  which  use  double  precision  arithmetic:  SMAl , SMA2,  DSGMl  and 

PLA4;  TRANSS  returns,  to  an  element  subroutine,  a single  precision  matrix,  [T^],  used  by  element 
routines  in  the  following  modules  which  use  single  precision  arithmetic:  SSGl , SDR2  and  PLA3. 

Material  property  data  are  contained  in  the  MPT  (Material  Properties  Table,  Section  2. 3. 2.6) 
and  the  DIT  (Direct  Input  Tables,  Section  2. 3. 2. 7)  data  blocks.  Both  of  these  data  blocks  are 
output  from  the  IFP  (Input  File  Processor)  Preface  module.  The  utility  routine  MAT  (see  Section 
3.4.36)  fetches  required  material  property  data  for  element  routines.  These  data  are  returned 
in  single  precision  form. 


4.87-4  (8/1/72) 


STRUCTURAL  ELEMENT  DESCRIPTIONS 


Element  deformation  data  are  contained  in  the  EDT  (Element  Deformation  Table,  Section  2. 3.2.8) 
data  block  which  is  output  by  the  IFP  Preface  Module.  Element  deformation  data  is  admissible  only 
for  the  R0D  (including  C0NR0D) , TUBE  and  BAR  elements. 

Element  temperature  data  are  contained  in  the  GPTT  (Grid  Point  Temperature  Table,  Section 
2. 3. 7. 2),  which  is  output  by  the  GP3  (Geometry  Processor  - Phase  3)  module.  The  temperature  data 
contained  in  this  data  block  are  used  for  static  loading  functions  due  to  temperature. 

Table  1 on  the  following  page  gives  reference  to  the  Theoretical  and  User's  Manuals  where 
more  information  on  the  elements  can  be  found. 
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Table  1.  Structural  Element  References. 


Bulk  Data  Connection  Programmer's  Manual  User's  Manual  Theoretical  Manual 

Card  Mnemonic Reference Reference  Reference 


CAXIF2 

4.87.15 

1.8 

17.1 

CAXIF3 

4.87.15 

1.8 

17.1 

CAXIF4 

4.87.15 

1.8 

17.1 

CBAR 

4.87.2 

1.3.2 

5.2,  7.2 

CCONEAX 

4.87.9 

1.3.6 

5.9 

CDAMP1 

4.87.7 

1.3.8 

5.6 

CDAMP2 

4.87.7 

1.3.8 

5.6 

CDAMP3 

4.87.7 

1 .3.8 

5.6 

CDAMP4 

4.87.7 

1.3.8 

5.6 

CELASl 

4.87.7 

1.3.8 

5.6 

CELAS2 

4.87.7 

1.3.8 

5.6 

CELAS3 

4.87.7 

1.3.8 

5.6 

CELAS4 

4.87.7 

1.3.8 

5.6 

CFLUID2 

4.87.15 

1.7 

16.1 

CFLUID3 

4.87.15 

1.7 

16.1 

CFLUID4 

4.87.15 

1 .7 

16.1 

CHBDY 

4.87.17 

8.2 

CHEXAl 

4.87.17 

1.3.9 

5.12 

CHEXA2 

4.87.17 

1.3.9 

5.12 

CMASSl 

4.87.7 

1.3.8 

5.6 

CMASS2 

4.87.7 

1.3.8 

5.6 

CMASS3 

4.87.7 

1.3.8 

5.6 

CMASS4 

4.87.7 

1.3.8 

5.6 

CMFREE 

4.87.15 

1.7 

16.1 

C0NM1 

4.87.8 

1.2.3 

5.5 

C0NM2 

4.87.8 

1 .2.3 

5.5 

C0NR0D 

4.87.1 

1.3.3 

5.2,  7.2 

CQDMEM 

4.87.4 

1.3.5 

5.8,  7.3 

CQDMEM1 

4.87.19 

1.3.5 

5.8 

CQDMEM2 

4.87.20 

1.3.5 

5.8 

CQDPLT 

4.87.5 

1 .3.5 

5.8 

CQUADl 

4.87.6 

1 .3.5 

5.8,  7.3 

CQUAD2 

4.87.6 

1.3.5 

5.8,  7.3 

CR0D 

4.87.1 

1.3.3 

5.2,  7.2 

CSHEAR 

4.87.3 

1.3.4 

5.3 

CSL0T3 

4.87.16 

1.8 

17.1 

CSL0T4 

4.87.16 

1.8 

17.1 

CTETRA 

4.87.17 

1 .3.9 

5.12 

CT0RDRG 

4.87.12 

1.3.7 

5.11 

CTRAPRG 

4.87.11 

1.3.7 

5.10 

CTRBSC 

4.87.5 

1.3.5 

5.8 

CTRIAl 

4.87.6 

1 .3.5 

5.8,  7.3 

CTRIA2 

4.87.6 

1.3.5 

5.8,  7.3 

CTRIARG 

4.87.10 

1 .3.7 

5.8 

CTRMEM 

4.87.4 

1.3.5 

5.8,  7.3 

CTRPLT 

4.87.5 

1.3.5 

5.8 

CTUBE 

4.87.1 

1.3.3 

5.2,  7.2 

CTWIST 

4.87.3 

1.3.4 

5.3 

CVISC 

4.87.13 

1 .3.3 

5.2 

CWEDGE 

4.87.17 

1.3.9 

5.12 

The  bulk  data 

connection  and  property  card  descriptions  in  Section 

2 of  the  NASTRAN 

User's  Manual 

should  also  be  consulted. 
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4.87.1  The  RgD,  CgNR0D  and  TUBE  Elements 

4.87.1.1  Input  Data  for  the  R0D,  TUBE,  C0NR0D  Elements 

1.  The  ECPT/EST  entries  for  the  R0D  and  C0NR0D  are: 


Symbol 

Description 

SIL. 

< 

J-  SIL, 

Scalar  indices  for  grid  points  a and  b 

Y,.  Z,  . 

a 

a a a 1 

Local  coordinate  system  number  and  basic 

'b* 

*b-  'b'  ^b) 

coordinates  of  grid  points 

Mat 

I.  D. 

Material  identification  number 

A 

Cross-section  area 

J 

Polar  inertia 

y 

Nonstructural  mass  per  unit  length 

c 

Shear  stress  coefficient 

t 

y 

Temperature  for  material  properties 

2.  The  TUBE  element  has  the  same  characteristics  as  the  R0D  except  for  different 
input  properties.  The  TUBE  has  d,  the  outside  diameter,  and  t,  the  thickness,  given. 
The  conversion  to  R0D  properties  is: 


A = Tr(d  - t)t 
J = {a  ((d  - t)^  + t^) 

c = ^ 

^ 2 

3.  Coordinate  system  data 

Given  N^,  X^,  Y^,  Z^,  N|^,  Xj^,  and  and  the  CSTM  {Coordinate  System  Transformation 

Matrices)  data  block,  the  3 by  3 global-to-basic  coordinate  transformation  matrices  [T^]  and 

a 

[Tjj]  are  calculated  using  the  utility  routine  TRANSU  or  TRANSS. 
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4.  Material  data 

Given  the  "MAT  I.D."  and  t^,  the  material  routine,  MAT,  returns  the  following  data: 

E - Modulus  of  Elasticity 

G - Shear  Modulus 

V - Poisson's  ratio 

p - Density 

a - Thermal  expansion  coefficient 

T^  - Reference  temperature 

Pg  - Structural  damping  ratio 

0^  - Stress  limit,  tension 

0^  - Stress  limit,  compression 

Og  - Stress  limit,  shear 

1.87.1.2  Stiffness  Matrix  Calculation  (Subroutines  KR0D  and  KTUBE  of  Module  SMAl ) 

1.  Calculate  the  length  of  member,  {i): 


(1) 


2.  Calculate  a normalized  direction  vector  {n}  in  basic  coordinates: 


n. 


‘3 


X.  - X.  'I 
a b 


Y.  - Y. 
a b 


^a-^b 


(2) 


3.  Form  the  extensional  stiffness  matrix,  [D^]: 


[D,]  = f 


n ^ ^1^2 


"l"3  "2"3 


"1"3 


"2"3 


'3  J 


(3) 
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4.  Form  the  torsional  stiffness  matrix  [D^]: 


[D,] 


z 


"l 

"l"2 

"l": 

"l"2 

2 

"2 

"2": 

"l"3 

"2"3 

n2 

"3 

(4) 


5.  [T^]  and  [Tj^]  are  the  matrices  which  transform  displacement  components  in  the  global 
coordinate  system  to  the  basic  system. 

6.  Transforming  to  global  coordinates  and  combining  the  results  give  the  partitions  of  the 
element  stiffness  matrix: 


■ 


D T 
a r a 


= 


h h 


tI  “r  Tb 


T, 


i »r  "b 


I'^b.l  ■ t^bl  ■ 


{&) 


(6) 


(7) 


(8) 


The  element  damping  matrices  are  equal  to  the  stiffness  matrices  times  g^,  the  structural 
damping  coefficient. 

4.87.1.3  Lumped  Mass  Matrix  Calculation  (Subroutines  MR0D  and  MTUBE  of  Module  SMA2) 

The  total  mass  of  the  element,  m,  is 


m = pM  + yJl  . 


(9) 
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The  partitions  of  the  element  mass  matrix  are: 


1 

1 

1 

1 

i 0 

t^a^  - - f 

1 ! 

10 

0 

1 0 

' o_ 

(10) 


= [0]  . (11) 

4.87.1.4  Element  Load  Calculations  (Subroutine  EDTL  of  Module  SSGl) 

The  element  loading  calculations  are  calculated  using  the  EST  data,  the  element  loading 
temperature,  T,  and  the  enforced  deformation  6. 

1.  Calculate  Jl,  {n},  [T^]  and  [Tj^]  as  in  section  4.87.1.2. 

2.  Calculate: 

t = (tg  + t^)/2  - T^,  (12) 


t^a> 


EA 

i 


{n}  (6  + aZT  - aZT^), 


(13) 


{n}  (6  + a)lT  - aJlT^).  (14) 

3.  {P  } and  {P.  } are  placed  in  the  load  vector  in  positions  corresponding  to  points  a 

d D 

and  b, 

4.87.1.5  Element  Stress  Calculations  (Subroutines  SR0D1  and  SR0D2  of  Module  SDR2). 

The  stress  functions  calculated  in  phase  1 (Subroutine  SR0D1)  are: 

[sj]  = f {n}^  [Tg],  (1x3);  (15) 


{p  } = ^ LA 
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[sj] 

= - I (n}'^  [V. 

(1x3); 

(16) 

[S^] 

= T-  [T,]. 

(1x3); 

(17) 

[S[] 

(1x3). 

(18) 

^T  ^ 

- aE, 

(19) 

^6  = 

E 

V 

(20) 

The  miscellaneous  constants  A,  tt,  T , a and  a are  also  saved  for  phase  2 calculations. 

U 0 L c s 

Note  J/C  is  set  to  zero  if  C = 0.  The  superscripts  t and  r denotes  translational  and 
rotational  stress  matrices  respectively. 

The  stress  and  force  values  are  calculated  in  phase  2 (Subroutine  SR0D2)  using  the 

displacement  vectors  {u^}  and  {u. },  the  loading  temperature,  T,  and  the  enforced  deformation  6. 

a D 

t r 

Note  that  {u^.}  and  {u^.}  (i  = a,  b)  denote  the  3 by  1 translational  and  rotational  components  of 

{U.}. 


1.  Partition 


(u,)=> 


(21) 


{u.  }=^  )_% , 


(22) 


2.  The  stresses  are: 


a = [S^^]  {uj}  + [sj]  {uj}  + [f  - T^]  , 


[S^^]  {u^^}  ^ [S^]  {uj}  . 


(23) 

(24) 


The  margins  of  safety  in  tension  or  compression,  M.S.^  or  M.S.^  respectively,  are  calculated 
as  follows: 

If  a > 0 then: 
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^.1  ,a,>0 


M.S.  = 


Integer  “1",  £ 0 or  a = 0 


If  a < 0,  then:  define  = - l^^l* 


M.S.  = 


(Integer  ”1" , a = 0 or  - 0 


(25) 


(26) 


The  margin  of  safety  for  torsion 

■T— p - 1 5 a > 0 and  x 0 

(26a) 

Integer  "1",  £ 0 or  x = 0 


The  forces  are: 


P = Aa  , (27) 

T = . (28) 


4.87.1.6  Differential  Stiffness  Matrix  Calculation  (Subroutine  DR0D  of  Module  DSMGl ) 


The  data  input  from  the  ECPT,  MPT  and  CSTM  data  blocks  are  as  listed  in  section  4.87.1.1. 
The  following  variables  are  calculated  in  the  same  manner  as  those  for  the  stiffness  matrix 
variables  (section  4.87.1.2) 


i length  of  rod 


"2 

"3 


The  direction  cosines  of  the  rod  axis  (+  from  b to  a) 
in  the  basic  coordinate  system 


[T3],  [T,] 


The  transformation  matrices  from  global  coordinates  to 
the  basic  coordinate  system  at  the  grid  points. 
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Only  the  linear  translational  displacements  at  the  grid  points  are  extracted  from  the 
displacement  vector.  Call  these  {u^}  and  {uj}  (3x1  single  precision  vectors.) 

1.  Calculate  the  axial  load  in  the  element  (+  implies  tension): 


(29) 


2.  A pair  of  axes  perpendicular  to  the  rod  axis  is  constructed.  Select  the  smallest 
component  of  {n}.  Define  n^  as  the  component  of  {n}  which  is  the  smallest;  let  j 
and  k be  the  other  two  components.  Construct  {m}  such  that 


rrii  = 1 , m^  = = 0 . 


(30) 


Let 


{y} 


{m}  X {n} 

I {mi  X (nil 


(31) 


and 


{z}  = 


(n)  X 
ITni  X 


m 


(32) 


where  x denotes  the  cross  product. 

The  actual  partitions  of  the  differential  stiffness  matrix  relating  to  displacements 


in  global  coordinates  are: 

[K^g]  = ^ [Tgf  [{yHy}^  + (zKzf]  [T^]  , (33) 

^ tTgf  [{yHy}"^  + {z}{z}'^]  [T^]  . (34) 

[Tbf  [{yHy}^  + {zHz}'^]  [T^]  , (35) 

[K^a]  = (36) 
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The  actual  6x6  partitions  are  formed  by  expanding: 

, etc.  (37) 

4.87.1.7  Piecewise  Linear  Analysis  Calculations  (Subroutine  PSR0D  of  Module  PLA3  and 
Subroutine  PKR0D  of  Module  PLA4) 

The  additional  ECPTNL  and  ESTNL  entries  are: 

★ 

Cq  - The  previously  computed  strain  value  once  removed. 

e*  - The  previously  computed  strain  value. 

★ 

E - The  previously  computed  modulus  of  elasticity. 

T*  - The  previously  computed  torsional  moment  (present  in  the  ESTNL  entry  only). 

All  of  the  above  values  are  initially  zero  with  the  exception  of  E*,  which  is  initially  the 
original  modulus  of  elasticity  present  on  a MATl  card. 

For  both  stress  calculation  and  stiffness  matrix  generation,  the  quantities  JL  and  {n} 
are  generated  as  in  section  4.87.1.2. 

Using  {Au^>  and  {Au?},  the  3x1  translational  displacement  vectors,  calculate  the 
a D 

increment  of  strain: 


=> 


i 

0 I 0 


Ae 


(‘"a> 


Ae*  = e*  - e*  , 


Define  the  following  terms: 

e^  = e*  + Ae,  (current  strain); 


(estimated  next  strain); 


(38) 

(39) 


(40) 

(41) 
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where  y is  the  ratio  of  the  next  load  increment  to  the  present  load  increment. 
We  calculate: 


a-,  = f (e-i). 

(42) 

02  = f (£2)* 

(43) 

where  f 1s  the  tabular  stress-strain  function.  (When  e*  = 0,  define  • 

For  stiffness  matrix  generation,  the  new  material  properties  are: 

\ C2  ^2  ^ ^1 

E = j 

(44) 

( E*,  if  ^2  " ^*1 

and 

S = I ‘^0* 
0 

(45) 

where  E and  G are  elastic  moduli  obtained  from  the  MATl  bulk  data  card 
0 0 

via  subroutine 

MAT. 

For  plastic  element  stresses  and  forces  the  values  are: 

a = , 

(46) 

P = Aa^ , 

(47) 

T = {n}'^  + T*  , 

(48) 

T = ^ (t  = 0 if  C = 0 or  J = 0), 

(49) 

where 

E* 

■ f- «.  • 

(SO) 
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The  new  ESTNL  and  ECPTNL  entries  are: 


= e* 

9 

(51) 

^1  . 

(52) 

£2  - ei  • 

(53) 

= T 

(54) 
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4.87.1.8  Coupled  Mass  Matrix  Calculation  (Subroutine  MCR0D  of  Module  SMA2) 


1.  The  length  of  the  element,  i.,  the  normalized  direction  vector,  {n},  and  the  mass 
of  the  element,  m,  are  calculated  as  in  Equations  1 and  2 in  Section  4.87.1.2  and 
Equation  9 in  Section  4.87.1.3,  respectively. 


2.  The  3 by  3 matrix 


[am]  = 


"l"2 


"l"3 


"l"2  "l"3 

"2  '’2"3 

"2"3  "3 


is  calculated. 

3.  The  3 by  3 element  mass  matrices  in  basic  coordinates  are 


(55) 


t^a^  = t^b^  = 


m/2 

0 

0 


0 0 

m/2  0 

0 m/2J 


- [AM]  , 


(56) 


and 


(57) 


4.  In  global  coordinates,  the  6 by  6 mass  matrix  partitions  are: 


1 

I 

0 

0 i 

0 __ 

for  i = a or  b,  j = a or  b,  and  where  [T^.]  is  the  global-to-basic  coordinate 
transformation  matrix  for  point  i. 


(58) 


4.87.1.9  Thermal  Analysis  Calculations  for  the  R0D  Elements 

If  a "stiffness"  matrix  for  thermal  analysis  is  to  be  generated  in  subroutine  KR0D,  word  56 
in  C0MM0N  data  block  SYSTEM  is  +1.  The  length,  Z,  of  the  element  is  calculated  as  in  Section 
4.87.1.2.  The  thermal  material  coefficient,  k,  is  obtained  by  calling  subroutine  HMAT,  rather 
than  MAT.  The  matrix  terms  are: 
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For  the  pivot  point,  i = 1 or  2: 


For  3 ^ i. 


The  "mass"  matrix  for  thermal  analysis  is  calculated  in  subroutine  MR0D.  The  thermal 
capacity,  Cp,  is  given  by  subroutine  HMAT.  The  matrix  terms,  to  be  placed  in  matrix  BGG,  are: 


The  heat  flux  and  gradient  "stress"  recovery  is  performed  by  subroutines  SDHTFl , SDHTFF, 
and  SDHTF2  in  module  SDR2.  In  Phase  1,  the  value  H is  extracted  with  subroutine  HMAT  and  the 
output  is: 


= H 


[C]  = ^[-1  1]. 


In  Phase  2,  the  gradient  and  flux  are: 


Q = - 


4.87-16b  (5/1/73) 


STRUCTURAL  ELEMENT  DESCRIPTIONS 


4.87.2  The  BAR  Element 

4.87.2.1  Input  Data  for  the  BAR  Element 

1.  The  ECPT/EST  entries  for  the  BAR  are: 

Symbol  Descriptions 


SILa,  SILb 

Scalar  indices  of  grid  points  a and  b 

Na*  'a*  ^a  ) 

Yb.  Zb  f 

Local  coordinate  system  number  and  location 
in  basic  coordinates  of  the  grid  points 

^1  ’ ^2  ’ ^3 

Orientation  vector  (see  Figure  1 in  section  1.3 
of  the  User's  Manual) 

F 

Flag  for  orientation  vector  definition 

'a>  'b 

Pin  flags  for  either  end 

Mat  I.  D. 

Material  property  identification  number 

A 

Cross-sectional  area 

II,  l2 

Bending  inertials  in  element  coordinates  about 
axes  normal  to  reference  planes  1 and  2 respectively 

^12 

Cross-product  bending  inertia 

J 

Torsional  Inertia 

y 

Nonstructural  mass  per  unit  length 

^y’  ) 

Vectors  defining  offset  distances  between 

b , b , b \ 
X’  y’  2 ) 

BAR  ends  and  grid  points  (see  Figure  1 in  section 
1.3  of  the  User's  Manual) 

ro 

Shear  factors 

c-j , C2»  d-| , d2  ^ 

fp  f2’  ^2 ) 

Positions  on  cross  section  of  four  points  for 
stress  calculations  (see  section  1.3.2  of  the 
User's  Manual) 

t 

y 

Temperature  for  material  properties 

2.  Coordinate  system  data 

The  location  (X^. , , Z^. ) and  local  coordinate  system  number  (N^)  of  each 

grid  point  (i  = a or  b)  are  used  to  calculate  the  3 by  3 global-to-basic  coordinate 
transformation  matrices,  [T^]  and  [Tj^]. 
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3.  Material  data 


The  material  identification  number  "Mat  I.D."  and  t^  are  used  to  select  the 
following: 


E - Modulus  of  elasticity 

G - Shear  modulus 

V - Poisson's  ratio 

p - Density 

a - Thermal  expansion  coefficient 

T^  - Reference  temperature 

- Structural  damping  ratio 

- Stress  limit,  tension 

o^  - Stress  limit,  compression 

- Stress  limit,  shear 


4.87.2.2  Stiffness  Matrix  Calculation  (Subroutine  KBAR  of  Module  SMAl ) 


1.  If  the  orientation  flag  F is  nonzero,  transform  the  given  vector  to  basic 
coordinates: 


(1) 


otherwise 


(2) 


2.  Transfer  the  relative  beam  end  locations  to  basic  coordinates: 


(3) 
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’«bl' 

CM 

<<D 

1 1 

1— 
i 1 

II 

< 

. 'b3 

(4) 


3.  The  center  axis  of  the  beam,  defined  as  {i}  is  calculated  as: 


(Vi) 


^a  - 

^b 

-^bl 

a 

'b 

"«a2 

■ '^b2  1’ 

(5) 

a 

^b 

^ ^a3 

■ ^b3  1 

1 ^ 

V2  ) 1/2 

''i3' 

(6) 

= 

1 

1 

(V.}  . 

(7) 

4.  The  bending  axis  of  the  beam  in  plane  2 is: 

{k}  = ^ 

Ki}  X {Vq}| 


(8) 


5.  The  bending  axis  of  the  beam  in  plane  1 is: 

j-n  - tk}  X {i}  , . 

■ |{k}  X {i}|  • (9) 

6.  The  6x6  matrix  for  transforming  element  displacements  in  the  element  coordinates  to 
basic  coordinate  displacements  is: 


PT  1 - r iU  i i tk}  ! ^ 0 

- |_  0 VnT]‘TjT[lB"  • 


(10) 


7.  The  6 by  6 matrices  for  transforming  global  coordinate  displacements  to  basic 
coordinate  displacements  are: 


= 


^a  1 


a_ 


(11) 
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[C^] 


Tb  i 

r 


I T 


(12) 


8.  The  6 by  6 matrices  for  transforming  displacements  of  the  arid  points  to  displacements 
of  the  element  ends  are: 


= 


I 


10  0^ 

0 1 0 I -a 


0 -ay 


0 0 1 I 

i- 


a -a  0 

y 


1 0 0 
0 1 0 
0 0 1 


(13) 


= 


1 

0 

0 

f 

0 

b^ 

-b 

i 

z 

y 

0 

1 

0 

1 

0 

b^ 

I 

z 

X 

0 

0 

1 

1 

1 

b. 

-b 

0 

1 

y 

X 

1 

1 

1 

1 

0 

0 

0 

1 

0 

1 

0 

1 

1 

0 

0 

1 

(14) 
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9.  The  6 by  6 partitions  of  the  element  stiffness  matrix  in  element  coordinates 
are: 


= 


— 1 
|m 

0 

0 

0 

0 

0 

0 

«1 

6 

0 

-|8 

0 

8 

R2 

0 

-^2 

0 

0 

0 

GJ 

i 

0 

0 

0 

-fe 

-^2 

0 

kz 

■ re 

0 

|ri 

¥ 

0 

-J  ^ 

•^i 

AE 

0 

0 

0 

0 

0 

0 

-6 

0 

^1 

0 

-6 

-R2 

0 

-^2 

fe 

0 

0 

0 

GJ 

i 

0 

0 

0 

¥ 

CM 

0 

l<4 

1 

<T»Iio 

t 

0 

-|Ri 

0 

-re 

■^3 

(15) 


(16) 


e iT 


(17) 
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= 


M. 

i 


& 

0 

7 ® 


. Ad 

ri 


0 

3 

Ro 


-h 

r 


0 

0 


I 


¥ 

f«2 


0 

k2 

-JB 


0 

^ R 
2 ^ 


"3  ^ 


(18) 


M -J 


The  terms  are  defined  as: 


If  1,2  = 0 : 


6 = 0 


(19) 


12EI, 


12EI, 

1 + 


-1 


K,AGJl^ 


(20) 


12EL 


1 + 


I2EI2 

K2AG£^ 


-1 


(21) 


Note:  If  K,  A G 


0,  set 3 = 0,  1 = 1 or  2 


K,  A G 


If  1,2  ^ 0 


12EI, 


(22) 


_ 12EL 


6 = 


12EI 


12 


(23) 


(24) 
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Note:  In  this  case  no  shearing  deformations  are  calculated. 


For  both  cases 


k 


(25) 


(26) 


El 


(27) 


El 


2 


(28) 


10.  Process  the  end  condition  ("pin")  data.  The  nonzero  digits  of  the  "pin  flag" 
integers  and  P^^  specify  the  following: 

11  implies  no  forces  are  transmitted  to  the  element  in  the  x-di recti  on  at  the  pinned  end 

2  implies  no  forces  are  transmitted  to  the  element  in  the  y-direction  at  the  pinned  end 

3  implies  no  forces  are  transmitted  to  the  element  in  the  z-direction  at  the  pinned  end 

4  implies  no  forces  are  transmitted  to  the  element  in  the  0^-direction  at  the  pinned  end 

5  implies  no  forces  are  transmitted  to  the  element  in  the  0^-direction  at  the  pinned  end 

6  implies  no  forces  are  transmitted  to  the  element  in  the  0^-direction  at  the  pinned  end 

1)  Nonzero  digits  of  the  number  P specify  the  unconnected  degrees  of  freedom 
on  the  end  of  the  BAR. 

2)  Construct  the  overall  element  matrix  and  perform  the  following  operations: 


a) 


k 


11 


k 


12 


aa 


k 


(29) 


■21 
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b)  Convert  the  pin  numbers  to  row  numbers  in  the  [k]  matrix.  If  a pin  number  refers  to 
end  "a",  it  corresponds  to  the  row  number.  If  it  refers  to  end  "b",  the  row  number  is 
obtained  by  adding  six  to  the  pin  number. 

c)  For  each  row  of  the  [k]  matrix  perform  the  following  operation  to  obtain  the  new 
stiffness  matrix  [k‘] 


(30) 


and  k.  = 0 for  j = i or  il  = i , where  i is  the  row  number  obtained  from  the  pin  number 


as  in  b). 


This  operation  causes  the  i^*^  row  and  column  to  be  zero,  and  disconnects 
that  degree  of  freedom  from  the  matrix.  Repeat  for  each  pin  index. 


d)  Repartition  the  matrix  into  the  four  original  sections,  carrying 
the  zero  rows  and  columns  along. 


11.  The  equations  to  convert  the  partitions  to  global  coordinates  are: 


(31) 


(32) 


(33) 


(34) 
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4.87.2.3  Li'mped  Mass  Matrix  Calculation  (Subroutine  MBAR  of  Module  SMA2) 

’m/2 


[MJ  = 


m/2  I 
m/2 


(35) 


where: 


m = «,  (pA  + u)  , 


(36) 


and: 


["a.]  ■ 'a  Ea>^  "Ib  =.>  ■ 


(37) 


■ 'b  Eb>^  ["bl  ffib  S Eb>  ■ 

(38) 

t^ab^ 

■ ["bai  ■ tn  • 

(39) 

The  equations  for  the  generation  of  the  "consistent"  or  coupled  mass  matrix  for  the  BAR  are 
given  in  section  4.87.2.8. 


4.87.2.4  Element  Load  Calculation  (Subroutine  BAR  of  Module  SSGl) 

a)  Form  (i),  [C^],  [C^],  [E^],  [E. ],  and  [k‘]  as  in  Equation  30. 

a n a D 

b)  Partition  the  12  x 12  matrix  into  four  6x6  matrices 


a a 

1 

1 

1 

1 

1 

ab 

■^ba 

”T  • 
1 
1 
1 
1 

•^bb 

(40) 
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c)  Form  the  vector 


-at(T  - T^)  - 6 


Tt'  + ?T'  T 
6 ‘-'la  ^ 


[^2a  ♦ 2''^] 


— Ft'  + T'  T 
2 L'2a  2b-* 


— Ft'  + t'  1 

2 >-'13  hbJ 


where  T is  the  average  of  and  6 is  the  enforced  deformation,  and  1\  are  the 
gradients. 

d)  The  load  vectors  in  global  coordinates  are: 


(P,)  ■ [eI][c;1[t,i,][<,](u^ 
(P,)  ■ [eJ][c;]CT.^][k[,](uJ) 
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4.87.2.5  Element  Stress  Calculations  (Subroutines  SBARl  and  SBAR2  of  Module  SDR2) 

The  stress  and  force  data  are  calculated  in  two  phases.  The  first  phase  (subroutine  SBARl) 
calculates  unique  stress  versus  displacement,  temperature  and  enforced  deformation  functions  for 
each  element.  The  second  phase  (subroutine  SBAR2)  applies  the  various  subcase  displacement 
vectors  to  product  the  element  forces  and  stresses. 

Phase  1 calculations  are  as  follows: 

1.  Using  the  algorithms  given  in  the  description  of  the  stiffness  matrix  calculations 

for  the  element  (Section  4.87.2.2),  calculate  the  following  data: 


[T^^]  = 6x6  element  coordinate  transformation 


[E^],[E|^]  - Offset  transformation  matrices  (6x6) 


[Ca],[Cb]  - 6x6  global  to  basic  coordinate  transformations 


[K  ] - 12x12  stiffness  matrix  in  element  coordinates  with 
pin  joint  effects 


£ - Length  of  BAR 


2.  Partition  the  stiffness  matrix  [K^]  saving  only  the  upper  6x6  matrices, 
[kaa]  and  [kg^]. 


k 


aa 


k 


ab 


[<]  => 


(43) 


k, 


ba 


bb 


3.  The  stress  matrices  are: 


(44) 


• 


(45) 
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The  temperature  and  enforced  deformation  matrix  is: 


[St] 


ai 

0 

0 

0 

0 

0 


g£ 

6 

0 

0 


2 


lyCXH 
^ 6 

0 


UCrX/  Q 


otX 

2 


0 

0 

2 

aH 

6 


^ (XH  {J.X, 

u 2 ~ 


0 

0 

^ 6 
0 


0^ 

2 


(46) 


Phase  2 element  force  calculations  are  as  follows: 


1.  The  static  element  forces  are  calculated  by  the  equation: 


"ia 


{P}  = [S,]{u^}  ^ [S^^]{u^^>  + [S^]  / T'^ 


(47) 


T2a 


^2b 


where  [S^]  and  [S^']  are  the  displacement-stress  matrices,  {u^}  and  {u^^}  are  the  displacement 
vectors,  and  T^,  T^'^,  etc.  are  the  element  thermal  resultants.  In  terms  of  the  given  tempera- 
tures at  the  ends,  T and  T.  , the  equation  for  is: 
a D z 

? + L 


(48) 


2.  The  element  axial  force  is: 


""x  ■ * ^6  <5^ 


(49) 
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3.  The  element  shear  loads  are: 


h - -^2  . 

(51) 

^2  = -P3  . 

(52) 

4,  The  torque  and  moments  are: 

T = -P4  . 

(53) 

''la  = -Pe. 

(54) 

^2a  = '’5  . 

(55) 

"lb  = "la  - . 

(56) 

"2b  = "2a  - ^2^  . 

(57) 

Phase  2 element  stress  calculations  are 

as  follows: 

1.  The  stresses  due  to  bending  are: 

'^la  " 

''2a  h2  - "la  ^2 

‘,‘2 -'fa  ■ 

(58) 

'^2a  " 

"la  ^2  ■ "2a  ^1 

~TT~? — ’ 

'l  ^2  '12 

(59) 

°ca 

•^la  ‘^l  '^2a  ‘^2* 

(60) 

‘'da  = 

'^la  ''l  ^ *^2a  ^2’ 

(61) 

‘'fa  = 

•^la  ''l  '^2a  ^2' 

(62) 

‘'ga 

•^la  9l  ^ "^2a  92* 

(63) 

°cb’  '^db’  ‘^fb’  °gb  above  equations  interchanging  the  subscripts  for  b and  a. 


Equation  50  is  intentionally  missing. 
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The  stresses  calculated  at  points  c,  d,  e,  and  f on  the  cross  section  will  be  modified  by  the 
element  temperatures  T^^,  T^^,  ...  T^^,  ...  if  at  least  one  of  the  T values  is  nonzero.  At  end  a: 


At  end  b: 


- ■'la  't  - ^2a  '2  ' 


■ ■ '“<Tad  - T,a  a,  - Tja  dj  - f^) 

etc. 


Aa^  - - Ea(T^^  ‘ ‘’’lb  '^1  ' ''’2b  ^2  ' 

Aoj  = - Ea(Tj^j  ■ ’’’lb  ■ ^2b  '*2  ' "^b^ 

etc. 


(63a) 


/ 


(T^  and  Tj^  are  the  given  average  temperatures  at  the  ends.)  The  above  stresses  are  added  to  the 
stresses  calculated  in  Equations  60  - 63. 


2.  The  axial  stress  is: 


3.  The  maxima  and  minima  are: 


^a  max 
^b  max 
^a  min 
‘^b  min 


X 

^ax  = IT  • 

°ax  (°ca»  °da*  '"fa*  °ga^  * 

®ax  ^ ^‘^cb’  '^db*  '^fb*  “^qb^  ‘ 

<"ax  ^^ca’  °da’  '"fa*  '^ga^  • 

°ax  ^‘'cb*  °db*  °fb*  '^gb^  • 


(64) 


(65) 

(66) 

(67) 

(68) 


4.87-28a  (9/1/70) 


STRUCTURAL  ELEMENT  DESCRIPTIONS 


4.  The  margins  of  safety  in  tension,  M.S.^,  and  compression,  M.S.^,  are  as  follows: 

lin  - 1 , a > 0 

\ a max  b max/ 

, a.  < 0 or  max  la,  a.  I < 0 

t — \ d ITI3X  b mdX  / — 


M.S„ 


Integer  "T 


(69) 


Define  o' 
c 


M.S., 


= - |a  |.  Then: 


^ rmn  , I 

) \^a  min  %min/ 


a mm 
( Integer  "1 


a;  /O 


, a;  = 0 or  min  (o^  J > 0 


(70) 


4.87.2.6  Differential  Stiffness  Matrix  Calculation  (Subroutine  DBEAM  of  Module  DSMGl) 

Many  of  the  equations  used  in  this  calculation  routine  are  identical  to  the  stiffness 
matrix  and  element  force  calculations.  Refer  to  sections  4.87.2.2  and  4.87.2.5  for  details. 

1.  Calculate  [Tg^^],  [6^],  [E|^]  and  [K],  the  matrices  used  in  the  BAR 

stiffness  matrix  generation,  section  4.87.2.2. 

2.  Calculate  the  forces  in  the  element  using  the  equations  in  section  4.87.2.5. 

3.  The  number  2,  3,  4,  5,  6,  8,  9,  10,  11  and  12^^  rows  and  columns  of  the 
12  by  12  differential  stiffness  matrix  are  given  in  Figure  1.  The  first  and 
seventh  rows  and  columns  are  zero.  The  terms  are  identical  to  the  element  forces 
calculated  for  output  (Equations  51,  52  and  54  through  57  of  section  4.87.2.5)  with  the 


following  notational 

changes: 

= ^2a 

^by 

= ^2b 

^az 

= ^la 

IS 

cr 

N 

= ^Ib 

''y 

= Vi 

Vz 

II 

< 

ro 
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Figure  1.  - Differential  stiffness  matrix  for  a RAR  element,  rows  and  columns  1 and  7 deleted 
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4.  The  effects  of  "pin  joints"  are  added  by  aoplying  the  elastic  stiffness 
constraints.  The  elastic  stiffness  matrix,  [K®],  with  no  pin  joints  is  equivalent 
to  the  matrix  [k]  in  Equation  29.  If  coordinate  number  i is  released  by  a oin  flag 
the  differential  stiffness  matrix  must  be  modified  as  follows: 


a.  If  i f j and  I ^ j,  i = 1,  2,  ...,  12  and  £=1,2 12: 


(71) 


where  m is  the  (row)  index  of  the  pin  joint  number,  1 £ m £ 12.  For  m = 0,  define 


(72) 


b.  If  1 or  j = a 

kJ*  = 0 i = 1 12  , 

Kj*  = 0 j = 1,  ....  12  . 

5.  The  12  by  12  matrix  [K^*]  is  now  partitioned  into  6 by  6 matrices  related 
to  each  grid  point 


[K^*]  = 1 

Sa 

1 - - ■ 

' '^ab 
1 

1 

.d* 

! hb 

J'ba 

(73) 

(74) 


(75) 


6.  If  point  "p"  is  the  pivot  point  (p  = a or  b),  the  matrices  generated  in  global 
coordinates  are; 


[kJ,]  ■ [kJ,*]  ([T,,][C,][E.])  . (76) 

■ ([T.^f[Cp][Ep])^  [kJJ]  ([T^,f[C^][E^:)  . (77) 
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4.87.2.7  Piecewise  Linear  Analysis  Calculations  (Subroutine  PSBAR  of  Module  PLA3  and 
Subroutine  PKBAR  of  Module  PLA4) 

The  additional  ECPTNL  and  ESTNL  data  block  entries  for  a BAR  element  are: 


- The  previously  computed  axial  strain  value  once  removed. 

- The  previously  computed  axial  strain  value. 

- The  previously  computed  modulus  of  elasticity. 


- The  previously  computed  element  forces  and  moments. 


la 


^2a 

All  of  the  above  values  are  initially  zero  with  the  exception  of  E , which  is  initially  the 
original  modulus  of  elasticity  present  on  a MATl  bulk  data  card. 

For  both  stress  (subroutine  PSBAR)  and  stiffness  matrix  (subroutine  PKBAR)  calculations, 
the  following  data  are  generated: 

^'^aa^’  ^'^ab^  Equations  6,  10,  11,  12,  13,  14  and 

30  in  section  4.87.2.1.  Note  that:  a)  [kgg]  and  [k®jj]  are  the  partitions  of  the  stiffness 

* 

matrix  with  pin  joint  effects  taken  into  account;  b)  for  stress  calculations,  E is  used 

i,e  n _ . r.e 


to  compute  and  and  c)  for  stiffness  matrix  calculations  E^  (see  Equation  84 

'aa--  ‘-■^ab^ 


below)  is  used  to  compute  [k^  ] and  [k^.  ]. 


Using  the  incremental  displacement  vectors,  and  {Au^},  calculate  the  incremental 

strain: 

= I tTebl>^  [[Cb][Eb]{AUb>  - [Cg][Eg]{Au^} 


(78) 


where  is  the  first  column  of  If  coordinate  "1"  of  either  P^  or  Pj^  (the  pin  flags) 

is  "on",  the  element  is  treated  as  linear.  This  determination  is  made  in  the  Piecewise  Linear 
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Analysis  pre-processor  module,  PLAl. 
Calculate  the  extensional  strains: 


★ ★ * 

Ae  = e - , 


e-j  = e + Ac  , 


(79) 

(80) 


££  ° e-j  + y(Ae) 


(81) 


where  y is  the  ratio  of  the  next  load  increment  to  the  prasent  load  increment. 
The  stresses 


f(ei ). 

(82) 

(83) 

★ 

are  computed,  where  f is  the  tabular  stress-strain  function.  (When  e = 0,  define 
. where  is  the  modulus  of  elasticity  on  the  MATl  card) 


For  stiffness  matrix  generation  the  new  material  properties  are: 


and 


if  02  ^ 
if  02  " ^1 


G 


1 


(84) 


(85) 


where  Eq  and  Gq  are  elastic  moduli  obtained  from  the  W.Tl  bulk  data  card  via  subroutine  MAT. 
Note  that  E-j  is  calculated  in  PSBAR  only  to  predict  the  next  value  of  E,  i.e.,  to  update 
the  ESTNL  entry. 
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For  plastic  element  stresses  and  forces,  the  values  are  calculated  in  a fashion  similar 


to  that  found  in  the  phase  2 subroutine,  SBAR2,  (see  section  4.87.2.5) 

of  the  SDR2  module. 

They  are: 

(AP)  = [k„][T,bf[C,][E,](Au,)  t [k,^][T,,]T[C,][E,]iAU^). 

(86) 

= Aa^ , 

(87) 

= - AP2  + V*  , 

(88) 

h = - ^^3  ^ V*  . 

(89) 

T = - AP^  + T*  , 

(90) 

^la  • 

(91) 

^2a  ^ ^2a’ 

(92) 

^Ib  = "la-^1^- 

(93) 

^2b  " '^2a  ■ ''2*- 

(94) 

The  stresses  due  to  bending,  the  axial  stress,  the  minimum  and  maximum  stresses,  and 
the  margins  of  safety  are  computed  as  in  Equations  58  through  70. 

The  new  ESTNL  and  ECPTNL  entries  are: 

★ ★ 
Eq  = e . 

(95) 

£ = C-|  » 

(96) 

* 

E = El  , 

(97) 
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* 

''l  • 

(98) 

* 

'2  = 

V2  • 

(99) 

★ 

T . 

(100) 

* 

ha  " 

"la  • 

(101) 

★ 

'2a  = 

"za  • 

(102) 

I 


1 
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4.87.2.8  "Consistent**  Mass  Matrix  Calculation  (Subroutine  MCBAR  of  Module  SMA2) 


1.  Generate  the  12  by  12  matrix: 


= -IT. 
LN  J 420 


175  0 

156 


0 0 

0 0 

156  0 

0 

SYM 


0 

111 


-11%  0 


0 

0 

4il^ 


35 

0 

0 

0 

0 

0 


0 0 0 

54  0 0 

0 54  0 

0 0 0 

0 -13A  0 

^3%  0 0 

175  0 0 0 

156  0 0 

156  0 

0 


0 0 
0 -13il 

]3%  0 


-3%^  0 


4£^ 


-3r 


0 0 

0 -11% 
11%  0 


0 

0 


(103) 


where 


m = (pA  + y)jt 


(104) 


2.  If  "pin  joints"  exist  (P^  or  nonzero),  generate  the  "unpinned"  12  by  12  stiffness 

matrix  in  element  coordinates,  [K®],  as  in  Equation  29,  section  4.87.2.2. 

For  each  pin  joint  of  index  j,  perform  the  operations  for  i = 1,  ...,  12  and 
= 1 12: 


mP 

"u 


K®.  m!. 


K®.  M?. 


k!.  kP.  mP. 


= mP  - ji  jj 


iJl 


kP. 

JJ 


kP. 

JJ 


After  each  pin  joint  j operation,  replace  [M®]  by  the  "pinned"  matrix  [M^]. 
4.  Partition  the  matrix  into  6 by  6 submatrices: 


(105) 
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(106) 

5.  The  matrices  are  converted  to  global  coordinates  by  the  equation: 

[H?j]  ■ [[T,,f[C,JCE,:]  . (107) 

where  i is  the  pivot  point  (a  or  b)  and  j is  used  twice  (for  both  a and  b). 


[M]  = 


1 ' 
'aa  • 
1 

^b 

1 1 
'ba  , 

"bb 

4.87.2.9  Thermal  Analysis  Calculations  for  the  BAR  Element 


If  a "stiffness"  matrix  for  heat  transfer  analysis  is  to  be  generated,  word  56  in  C0MM0N 
data  block  SYSTEM  is  +1.  The  length,  I,  of  the  element  is  calculated  with  the  structure  analysis 
code,  described  in  Section  4.87.2.2.  The  thermal  conductivity  coefficient,  k,  is  obtained  by 
calling  subroutine  HMAT,  rather  than  MAT.  The  matrix  terms  are: 


For  the  pivot  point  i. 


Kii 


For  j M. 


k A 

i.  ’ 


The  "mass"  matrix  for  heat  transfer  analysis  is  generated  in  subroutine  MBAR.  The  capacity 
coefficient  Cp  is  determined  by  subroutine  HMAT  and  the  matrix  terms  placed  in  the  BGG  matrix  are; 

^•i  ■ • 


The  "stress"  recovery  is  performed  by  subroutines  SDHTFl , SDHTFF,  and  SDHTF2  in  module 
SDR2.  In  Phase  1,  the  value  k is  extracted  with  subroutine  HMAT  and  the  output  is: 

= k , 

[C]  = [[-1  1]  . 


In  Phase  2,  the  gradient  and  flux  are: 


AT  = [C] 


Q = -K^AT 
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4.87. 

4.87. 


The  SHEAR  Panel  and  TWIST  Panel  Elements 


3.1  Input  Data  for  SHEAR  and  TWIST  Panels 

1.  The  ECPT/EST  entries  for  shear  (SHEAR)  and  twist  (TWIST)  panel  elements  are: 


Symbol 


SIL.,  i=l,2,3,4 

Ni.X..Y..Z.  Y 
i = 1.2, 3.4  ) 


Mat  I.D. 
t 


Description 

Scalar  indices  for  the  connected  points 

Local  coordinate  system  number  and  basic  co- 
ordinate location  for  each  of  the  connected 
points. 

Material  identification  number 
Panel  thickness 


y Nonstructural  mass  per  unit  area 

t^  Temperature  for  material  properties 

2.  Coordinate  system  data 

Using  N.. , X.. , Y.. , Z.j , i = 1,2, 3, 4 the  program  constructs  [T..],  i = 1,2, 3, 4,  the  3 by  3 
global-to-basic  transformation  matrix  for  each  point. 


3.  Material  data 

MAT  I.D,  and  t^  are  used,  by  utility  routine  MAT,  to  produce  the  following  terms  from  the 
MPT  and  DIT  data  blocks: 


Symbol 


Description 


E 

6 


V 

P 

a 


Modulus  of  elasticity 
Shear  modulus 
Poisson's  ratio 
Density 

Thermal  expansion  coefficient 
Reference  temperature 
Structural  damping  coefficient 
Stress  limits 
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4.87.3.2  Definition  of  Element  Geometry 

A mean  plane  is  defined  as  parallel  to  the  two  diagonal  lines  and  halfway  between  them.  The 
projections  of  the  points  at  the  corners  of  the  element  onto  the  plane  and  the  normal  to  the  plane 
define  the  element  coordinate  system.  Using  standard  vector  algebra*  the  steps  are: 


1.  Define: 


X 

ro 

r\ 

. . {Vq2>  = ^2 

» , etc. 

(1) 

(hi 

1 ihl 

I 


2.  Define  diagonal  vectors: 


= 

(2) 

tVo4>  - tVQ2>  • 

(3) 

3.  Define  normal  vector  (x  denotes  cross 

product): 

{k^}  = 

{Vd^}  X {v^2>  • 

(4) 

" Tnyr  ’ 

A = -^  |{l<n}|  (the  projected  area  of  the  element).  (6) 

4.  Define  the  vectors  along  the  side  of  the  element  (see  Figures  2 and  3) 


{v^2> 

• "oa*  - 

(7) 

{V4i> 

<''04>  ■ 

(8) 
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5.  Define  transformation  matrix  [T^],  which  transforms  element  coordinate  to  basic  coordi- 
nates, using  unit  vectors: 


{v52)  = {V12I  - • 


{i}  = 


{v;2> 


UVP2II 


(9) 

(10) 


{j}  = {k}  X {i}  , 


(11) 


[Te]  = 


^1 

’2 


Jl 

J2 


(12) 


6.  Transform  the  four  corner  point  of  the  element  from  basic  coordinates  to  the  element 
system: 


x-|  \ / 0 


{r^}  = 


(13) 


•yi 


Xo'k  IIV52I1 


{r2>  = 


(14) 


{r3>  = 


'•3 

^3 


= tT,]'  . 


(15) 


I.:!- 


The  four  corners  of  the  element  are  now  projected  onto  the  mean  plane. 
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7.  The  following  conditions  should  be  met.  Otherwise*  the  interior  angle  at  the 
indicated  point  is  not  valid. 


^3  > ° 


^3 

^3  ^ ^ ^ 


V4 


> 0 


X4  < X2  - (X2  - X3)- 


(If  not,  the  interior  angle  at  point  2 > 180°)  , (17) 
(If  not,  the  interior  angle  at  point  4 > 180°)  , (18) 
(If  not,  the  interior  angle  at  point  1 > 180°)  , (19) 
(If  not,  the  interior  angle  at  point  3 > 180°)  . (20) 


4.87.3.3  Coefficient  Generation 

The  shape  of  the  panel  may  be  a paral lelogram,  a trapezoid,  or  a general  quadrilateral,  and 
the  equations  will  be  different  for  each  case.  The  slopes  of  the  opposite  sides  are  checked  for 
parallel  effects,  and  the  correct  routine  is  used  for  each  possibility. 


1.  Check  for  parallel  effects: 
If 


^3  " ^4 

X3  - 


< e, 


sides  1 and  3 of  the  panel  are  parallel  (e  = lO"  ) 


(21) 


If 


y4(x3-X2)  - y3X4 

X4(x3~X2)  + 


< 


e. 


(22) 


sides  2 and  4 are  parallel.  If  both  terms  are  less  than  e,  (i.e.,  the  panel  is  a 
parallelogram),  go  to  step  (4).  If  both  terms  are  greater  than  e,  go  to  step  (5).  If  the 
one  pair  of  parallel  sides  is  1 and  3,  go  to  step  (2);  if  the  one  pair  of  parallel  sides  is  2 
and  4,  go  to  step  (3). 
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2.  In  this  case  the  line  connecting  points  3 and  4 is  approximately  parallel  to  the  line 
connecting  points  1 and  2,  The  equations  are; 


^p  y3X4-y4lX3-X2)  ’ 


(23) 


Pi  " -^p  ■ ■^i  " 1.2, 3, 4)  , 


(24) 


>^2^3^4 


(25) 


(26) 


(27) 


Z 


PjP2  A 
P3P4  2Gt 


3(l+v)  + ac  + c^)}  • 


(28) 


3.  In  this  case  the  line  connecting  points  1 and  4 is  approximately  parallel  to  the  line 
connecting  points  2 and  3.  The  equations  are: 


(29) 


X3  - X4 


(30) 
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Pi 


y d]  M ■ (i  = 1.2, 3, 4) 

’ yi  + d 


(31) 


(Xq  - x^)  - d 


(32) 


^ ^ 5K  " *KTKT  <33) 

4.  In  this  case  the  panel  approximates  a parallelogram.  The  equations  to  solve 
are: 


Pi  = 1.  (i  = 1.2, 3.4), 


(34) 


d = 


1 /X4  , xg-xg  ^ y3-y^. 

2W4  V3  X3-X4;  > 


(35) 


Z = ^ (1  + \ 

^ 2Gt  1+v^- 


(36) 


5,  In  this  case  no  parallel  effects  exist.  The  equations  are: 


(X3-X4) 

= "4-T>7y^)  ^4 


(37) 
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(38) 

X2y3Y4 

y3X4-Y4  (X3-X2)  ’ 

(39) 

■ V<*q  ■ * yp"  . 

(40) 

■i  ■ . 

•^P 

(41) 

[(Xq  - X.)  - y.d]  (i  = 1,2,3,4)  . 

(42) 

(43) 

O" 

II 

1 

0 

(44) 

a = ^ - d. 
P2 

(45) 

4.87-44 


STRUCTURAL  ELEMENT  DESCRIPTIONS 


Let: 


F 


{[(a+b)  + I (aW)  + r (a^+b^)]  log^  la+b| 
Zl^  ^ 


+ [(c+d)  + I (cW)  + ^ (c^+d^)]  l09g  Ic+dl 


- [(b+c)  + I (b^+c^)  + ^ (b^+c^)]  l09g  |b+c| 


(46) 


- [(d+a)  + I (d^+a^)  + (d^+a^)]  lo9g  |d+a| 


+ [(a^-c^)  (b^-d^)  + (b^-d^)  (a^-c^)] 


- [(a-c)  (b^-d^)  + (b-d)  (a^-c^)]}  . 


Then: 


Z 


hPz  1 

P3P4  ^ 


(47) 
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4.87.3.4  Stiffness  Matrix  Formulation  For  a SHEAR  Panel  (Subroutine  KPANEL  of  Module  SMAl ) 


1.  Calculate  the  lengths  of  the  diagonals: 


(48) 


"24 


" ^ ^4 


(49) 


2.  Calculate  the  unit  vectors  along  the  diagonals: 


^1  = ^3  = I 


13 


V,  = V. 


i 


13 


Uo  = U 


X4-X2 


4 i. 


24 


(50) 

(51) 

(52) 


"2  = ^ - I 


^4 


24 


(53) 


3.  The  loads  along  the  diagonals  in  terms  of  the  average  shear  stress  along 
side  1 are: 

_ ^2^4  *^1 3 


1 2(x4y3  - X3y4)  ’ 


(54) 


4.87-46 


STRUCTURAL  ELEMENT  DESCRIPTIONS 


2 Zi\y^  - - X2(y3  - y^)) 


(55) 


A3  -A^  , 


(56) 


^4  ~ ”^2  * 


(57) 


4.  The  loads  at  grid  point  i in  terms  of  the  displacements  at  grid  point  j may  be 
expressed  in  terms  of  a (3x3)  matrix  [k.  .]  where 

" J 


[K,j]  ■ ^ [T,f  [y 


(58) 


''i 


1 = 1,  2,  3.  4 , 

.1  = 1,  2,  ...i  . 


5.  The  3x3  matrices  are  related  only  to  deflections  and  forces.  The  terms  in  the 
6x6  matrices,  corresponding  to  rotations  are  zero.  Expand  the  matrices  to  6x6: 


[K,j] 


k.  . • 
IJ  I 

I 

- - T 

0 ' 
I 


O’ 

0 


The  element  structural  damping  matrix  is  equal  to  g^,  the  structural  damping 
coefficient,  multiplied  by  the  stiffness  matrix,  [K--]. 

* J 


(59) 


4.87.3.5  TWIST  Element  Stiffness  Matrix  Generation  (Subroutine  KPANEL  of  Module  SMAl ) 

The  following  data  for  the  SHEAR  panel  element  are  used  for  generation  of  the 
element  stiffness  matrix  for  the  TWIST  panel. 
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[Tg]  The  3x2  transformation  matrix  (Equation  12). 


Xp,x^,x- The  locations  of  the  corners  in  the  element 

system  (Equations  14,  15  and  16). 

Z The  energy  coefficient  (Equation  28,  33,  36, 

or  47). 


''l"2V4  ) 


[T^].[T2].[T3],[T4] 


Unit  vector  coefficients  at  the  corners 
(Equations  50  through  53) 


Load  coefficients  for  the  corners  (Equations 
54  through  57) 

3x3  global-to-basic  transformation  matrices 


1.  Generate  the  three  by  three  matrices  relating  the  moments  at  point  i to  the 
rotations  at  point  j: 

[OijJ  ■ ^ I J • 

These  are  generated  only  for  one  point  i (the  pivot  point)  and  j = 1,2,3  and  4. 


(60) 


2.  The  3x3  matrices  [q^ J are  expanded  to  6x6  matrices  [K. .]  having  zeros  in  the 

■ J I J 

translational  displacement  rows  and  columns. 


[K,j]  = 


r 0 


(61) 


4.87.3.6  Mass  Matrix  Generation  (Subroutine  MASSTQ  of  Module  SMA2) 

The  mass  at  each  point  is  determined  by  cutting  the  quadrilateral  into  four  overlapping 
triangles.  Each  triangle  is  defined  by  three  of  the  four  points  as  follows  : 
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Triangle  No. 

K 

I 

II 

III 

IV 


Connected  Points 

ji  13 

4-1-2 

1- 2-3 

2- 3-4 

3- 4-1 


The  area  of  each  triangle  is  determined  by  the  equation  : 


(62) 


where  is  the  location  vector  of  the  first  point  definina  the  triangle, 

{Voj2^  the  second  point,  and  third  point. 

The  mass  of  each  triangle  is  divided  equally  among  its  connected  points.  The  mass 
at  each  point  is  : 


= 

(u  + pt) 
3 

(A^  A-j  + A2)  , 

(63) 

m2  ^ 

(P  * pt.) 
3 

(A^  + A2  + A3)  , 

(64) 

m3  = 

(y  + pt) 
3 

(A2  + A3  + A^) , 

(65) 

n-4  = 

(y  + pt) 
3 

(A3  + A^  + A-| ) . 

(66) 
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For  each  point  a six  by  six  diagonal  mass  matrix  is  constructed.  The  matrix  is  : 


'"’i 

1 

1 

. 0 

m. 

1 

1 

1 

■1 

1° 

0 

1 

1 0 
1 

1 0 

— 

(67) 


4.87.3.7  SHEAR  Element  Stress  and  Force  Calculations  (Subroutines  SPANLl  and  SPANL2  of  Module  SDR2) 

The  stress  and  force  calculations  are  performed  in  two  phases:  phase  1 in  SPANLl; 
phase  2 in  SPANL2. 

PHASE  1 

1.  Calculate  the  1 by  3 matrices  [S^.]j  i = 1,  2,  3,  4 : 

[^i]  = - {u^.  I v^. } [Tg]^  [T^.],  (68) 

where  A^. , Z,  t,  u^,  v^. , [T^]  and  [T^.]  are  as  given  in  sections  4.87.3.2  and  4.87.3.3. 

2.  The  [S]  terms  and  the  following  parameters : 


are  saved  on  a scratch  file  for  phase  2 calculations,  p^ , where  i = 1,  2,  3 and  4 are 
calculated  using  the  equations  in  section  4.87.3.3. 
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PHASE  2 

1.  The  average  stress  along  side  1 is: 


s,  = I [S.]{uh. 
' i=1  ’ ^ 


{up  are  the  translational  vectors  where: 


(“1 


2.  The  stresses  on  the  corners  are  : 


■^1 

■^2 


Pi 


-1  ? 
?2  ^ 


PlP2 

Ps 


^1* 


P]P2 


(69) 


(70) 


(71) 

(72) 


(73) 


(74) 


3.  The  average  and  maximum  stresses  are  defined  as  : 


'avg  = T (-^1  + ^2  ^3  ^ ^4^  * 


(75) 


■^max  1^2!’  I'^3l’ 


(76) 
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4.  The  margin  of  safety  in  shear  is  defined  by  : 


max 


- 1 , if  cTg  >0 


M.S. 


(77) 


Integer  "1",  if  < 0 or  x = 0 

S IllaX 

5.  The  net  loads  on  the  corners  in  the  diagonal  direction  are  : 


Pl3  = ^ • 


PZ4  = ^2  • 


(78) 

(79) 


4.87.3.8  TWIST  Element  Stress  and  Force  Calculations  (Subroutines  SPANLl  and  SPANL2  of  Module 
SDR2) 


The  stress  and  force  calculations  are  performed  in  two  ohases,  as  for  the  SHEAR 
panel  element. 

PHASE  1 


1.  Calculate  for  i = 1,  2,  3,  4 


[s,]  . - i [T,]. 

2.  The  [S^. ] terms  and  the  following  data: 

n * ”"5  • 5 • 

1 P3  P4 

are  saved  on  a scratch  file  for  phase  2 calculations. 

PHASE  2 

1.  The  mean  outer  fibre  shear  stress  along  side  1 is: 


T,  = E [S.]  {u^}. 
' i=l  ’ ’ 


(80) 


(81) 
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where  {uT}  are  the  three  rotational  displacements: 


2.  The  stresses  are  : 


(82) 


TiPi 

'2  ■ P2  ’ 


(83) 


Pl^2 

P1P2 


."T 


(84) 


(85) 


‘^avg  = 4 (^1  + a2  + a3  + a^) , 


(86) 


'^max  " niax(|a^|,  |a2|,  103!,  |a^|), 


(87) 


3.  The  margin  of  safety  in  shear  is  defined  by  : 


15 1 ■ ^ ° 

' max' 


M.S., 


Inteaer  "1",  ^ < 0 or  a = 0 


(88) 


4,  The  moments  are  : 


M 


t 


13 


(89) 
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M, 


'24 


6 • 


(90) 


4.87.3.9  SHEP.R  Panel  Differential  Stiffness  Calculations  (Subroutine  DSHEAR  of  Module  DSMGl) 
1 . Data 

The  data  necessary  for  analysis  are  included  in  the  ECPT,  CSTM,  MPT  and  UGV 
data  blocks.  The  following  data  are  generated  as  in  sections  4.87.3.2,  4.87.3.3, 
and  4.87.3.4  . 

Si*  [T^]»  i = 1 >2,3,4,  the  3x3  transformation  matrices  between  global  and 

basic  coordinates,  at  the  four  corners  of  the  shear  panel. 

b.  [Tg]>  the  3x2  transformations  between  basic  and  element  coordinates. 

c.  {k},  the  unit  vector  normal  to  the  plane  in  basic  coordinates. 

d.  u^ , v^. , i = 1,2, 3, 4,  the  unit  vectors  along  the  diagonals  in  element 


e.  A^. , i = 1,2, 3, 4,  the  load  coefficients  for  the  corners. 

f.  Z,  the  energy  coefficient  for  the  panel. 

g.  ^24*  lengths  of  the  diagonals. 

2.  Algorithm 

a.  The  load  in  the  diagonal  between  points  1 and  3 is  : 


coordinates. 


(91) 
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where  {x^}  is  the  vector  of  the  three  translations  in  global  coordinates  for  point 
(i). 

b.  The  load  in  the  other  diagonal  is  : 

^24  ■ ^ fl3  • 


c.  Construct  a perpendicular,  which  is  defined  in  basic  coordinates,  to  each  diagonal 
vector  in  the  plane  of  the  panel. 


(93) 


(94) 


d.  The  nonzero  partitions  of  the  overall  differential  stiffness  matrix  for 
the  displacements  are: 


[k?l] 

+ {k}{k}^]  [T^]  , 

(95) 

[ + {kHk^  l [T3]  , 

(96) 

[k^33l 

■ 

+ {kHk}"^]  [T3]  , 

(97) 

[kj,] 

■ 

(98) 

[k^j] 

• 1 

{kHk}'''  ] [T2]  . 

(99) 

1 1 

"O  C\J 
1 1 

= -F^4[T2f 

{kHk^]  [T^]  . 

(100) 
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[^44]  “ p24^^4^  ^ {k}{k}  j [T^] 


d -,J 


[i<42]  = [k24] 


F'  = -11 


13 


ns 


F24 


"24 

^24 


5.  The  actual  6x6  oartitions  are 


[K?j] 


ki  : 

u I 


. 0 10 


and 


[K^,] 


(101) 

(102) 

(103) 

(104) 


(105) 


(106) 
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SIDE  3 


Figure  2.  Shear  panel  element  coordinate  system  and  element  forces 


Ml  3 


Figure  3.  Twist  panel  element  coordinate  system  and  element  forces 
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4.87.4  TRMEM  and  QDMEM  Elements 


4.87.4.1 

1. 


Input  Data  for  the  TRMEM  and  QDMEM  Elements 


ECPT  entries  for  the  TRMEM  and  QDMEM  are: 
Symbol 


Description 


TRMEM  QDMEM 


SIL^ 

SIL. 

SIL2 

SIL, 

SIL3 

SIL 

SIL 

i =1,3 

0 


Mat  I.D. 


Scalar  indices  of  the  connected  grid  points. 


Local  coordinate  system  numbers  and  location 
coordinates  in  the  basic  system  for  the 
connected  grid  points. 

Anisotropic  material  orientation  angle 
Material  identification  number 


t 

y 


Thickness 

Nonstructural  mass  per  unit  area 
Temperature  for  material  properties 


2.  Coordinate  system  data 

The  numbers  N^. , X^. , Y^.  and  are  used  to  calculate  the  3 by  3 global-to-basic  coordinate 
transformation  matrices  [T^]  for  points  i = 1,  2,  3,  and  4. 
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3.  Material  data 


Symbol 

[Ge] 

P 


a ,a  ,a 
x’  y’  xy 


.87.4.2  Basic  Equations  For  TRMEM 


Description 

3x3  stress-strain  matrix 
Mass  density 

Three  thermal  expansion  coefficients 
Reference  temperature 
Structural  damping  coefficient 
Stress  limits  for  tension,  compression  and  shear 


1.  The  element  coordinate  system  is  defined  by  the  following  equations  (see  Figure  4) 


{i} 


{k} 


{i}  X {V12} 
|{i}  X {V^3}1 


{j}  = {k}  X {i}  . 


2.  The  displacement  transformation  matrix  from  basic  coordinates  to  in-plane 
coordinates  is  : 


(1) 


(2) 


(3) 

(4) 

(5) 
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[Ef  = 


(6) 


3.  The  coordinates  of  the  points  in  the  element  coordinate  system  are  : 


Xi  = = y2  = 0 . 

(7) 

(8) 

X3  = {Vi3}^  {i}  . 

(9) 

y3  = |{i}  X {Vi3}l. 

(10) 

The  area  is  : 

A . <”> 


4.  The  transformations  from  displacements  at  the  points  to  strains  are: 


[Cl]  = 


(12) 
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[CJ  = 


Jh 

V3 


^2^3 


(13) 


[C3]  = 


0 

0 

i 

J^3 


(14) 


4.87.4.3  Stiffness  Matrix  Calculation  for  TRMEM  (Subroutine  KTRMEM  of  Module  SMAl ) 

1.  The  equation  used  in  the  stiffness  matrix  generation  in  global  coordinates  is: 


[kij]  = At([C.][Ef[T.])^[Gg]([C.][Ef[T.])  , 


(15) 


where  “i“  is  the  pivot  point  number,  and  j = 1,  2,  3 are  the  three  connected 
points,  [k-j,-]  is  a 3x3  matrix. 

2,  For  use  in  the  overall  structural  matrix,  the  matrices  are  expanded  to  6x6  to 
form : 


t^ij]  = 


(16) 
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4'.87.4,4  Mass  Matrix  Calculation  for  the  TRMEM  Element  (Subroutine  MASSTQ  of  Module  SI4A2) 


(17) 

(18) 

The  area  is : 

A = ^|{Vi2}  X {V^3)|  . (19) 

The  mass  at  each  point  is: 

m = j (pt  + y)  , (20) 

which  is  one- third  of  the  total  mass. 

For  each  point  the  diagonal  mass  matrix  is  : 


The  mass  is  generated  by  the  following  algorithm. 
The  vectors  defining  the  sides  are  : 


m 

1 — 
\ 

m 

! 0 

m 1 

lo 

0 

! 0 

1 o_ 

i = 1,2,3. 


(21) 
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4.87.4.5  Element  Load  Calculations  For  The TRMEM  Element  (Subroutine  TRIMEM  of  Module  SSGl ) 

Using  the  loading  temperature  on  the  element,  f,  given  in  the  GPTT  data  block,  the  triangul 
membrane  routine  generates  force  vectors  by  the  equation: 

{Pi>  = At[T.f[E]  [C.]''’[Gg]{a}(T  - Tjj)  . i = 1,2,3  (22) 

where  {P^. } is  a 3x1  vector. 

The  forces  are  placed  in  the  PG  load  vector  data  block. 

4.87.4.6  Element  Stress  Calculations  For  The  TRMEM  Element  (Subroutines  STRMEl  and 
STQME2  of  Module  SDR2) 

1.  Calculations  performed  in  STRMEl  (Phase  1 calculations). 

a.  Using  the  formulae  given  in  section  4.87.4.2,  calculate  the  following  terms  : 


[C,.] 

II 

cr 

o 

(3x2) 

[Ti] 

i = a,  b,  c 

(3x3) 

[E] 

(3x2) 

[Ge] 

(3x3) 

The  transformations  from  displacements  to  stress  are  ; 

[s^]  = [Gg][C^][Ef[T.]-  ■.^4) 


Equation  23  is  intentionally  missing. 
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The  temperature  to  stress  relation  is: 

{St>  = - [Gg]{a}  ^25) 

where 

(26) 

for  isotropic  materials,  {a}  is  input  by  the  user  for  anisotropic  materials  and  corrected 
for  material  angle  by  a = [v]{a^}  . 

2.  Calculations  performed  by  STQME2  (Phase  2 calculations) 

The  equation  for  stress  is  : 

hx 

("xy 

where  T is  the  loading  temperature  obtained  from  the  GPTT  data  block. 

The  principal  stresses  are: 


} 


tT  - T„] 


(27) 


(28) 


(29) 


0 


(in  degrees)  t 


(30) 


where  0 is  limited  to  : -90°  < 0 < 90° 
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The  maximum  shear  is  : 


.87.4.7  Differential  Stiffness  Matrix  Calculations  for  the  TRMEM  Element  (Subroutine 
DTRMEM  of  Modul e DSMGl ) 

1 . Input  Data . 

ECPT  for  element 

i - Pivot  point  scalar  index 

{u^},  {U2},  - Displacements  of  pivots  on  triangle  (UGV) 

T - Average  loading  temperature  of  the  grid  points  of  the  element  (GPTT) 

CSTM  - coordinate  systems 
MPT  - Material  properties  table 

2.  Output  Data. 

the  differential  stiffness  matrix. 

3.  Solution  Algorithm. 

a.  The  planar  stresses  in  the  element,  a , a and  a , are  calculated  as  in 

X y xy 

the  SDR2  (Stress  Data  Recovery)  module.  The  following  data  are  saved  for  use 
in  the  differential  stiffness  calculation  : 

(i}>  {.i}»  {k}  - Unit  vectors  defining  the  element  coordinate 

system. 

A,  t - Area  and  thickness 

X2»  - Locations  of  the  points,  element  coordinates 

[T-|],  [T2],  [T^]  - Global -to-basic  coordinate  transformations 

^ > ^v/»  ^vv/  “ Stresses  in  element  system 
X y xy 
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b.  The  differential  stiffness  matrix  in  terms  of  the  six  generalized  coordinates 
K‘  “y  Sx*  ^yy*  Sy)  = 


[K^] 

g 


= At 


xy 
0 

0 

0 

L 0 


xy 

^x 

0 

0 

0 

0 


(Ox+Oy) 


-a 


xy 


xy 


-a 


(Ox-Oy) 


0 

0 

xy 

0 

0 

0 


0 

0 

^xy 

0 

0 

0 


0 “ 
0 

(0x-ay) 

0 

0 

0 


(32) 


If  the  subroutine  is  called  from  the  DTRIA  or  DQUAD  routines  the  following  terms  are  set 
to  zero: 


['gn’  ■ ■ ''921’  ■ t^922^  ■ " 

c.  The  transformation  matrices  from  displacements  at  the  points  to  generalized 
coordinates  are: 


0 0 Y3-Y2 

0 0 Yi 


Y2-Y3  ^ 

2 "2 


0 


-Yi  0 0 


0 Y3-Y2  0 


^2-^3  ^1 

• T 


0 


(33) 
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[C^] 


0 0 


0 0 


-^1 


^_3 

2 2 


0 


Yi  0 0 


0 -^3 

y_3 

2 2 


0 

0 


(34) 


0 ^2  0 

^2 

2^  0 0 


(35) 
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where 


(36) 


>2 


(37) 


^3 


^3 

^2^3  • 


(38) 


d.  The  partitions  (3x3)  of  the  differential  stiffness  matrix  in  alobal 
coordinates  are  : 


LK,.j]  = ([cj]  [E'^f  [T.])^  [K^]  [cj]  [Tj]  . (39) 


i = pivot  point 
j = 1 , 2 and  3 


where 


[E^f  - 


(k}T 


(3x3) 


(40) 


4.87.4.8  General  Calculations  for  the  QDMEM  by  the  QDMEM  Driver  Routines  (Subroutines 
KQDMEM  of  Module  SMAl , SQDMEl  of  Module  SDR2,  DQDMEM  of  Module  DSMGl), 

1.  The  quadrilateral  is  divided  into  four  triangles  as  shown  in  the  figure  below: 
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2 


The  thickness  used  for  each  triangle  is  one-half  that  given  for  the  quadrilateral. 
Since  no  special  calculation  time  is  saved  by  generating  a unique  element  coordinate 
system,  the  basic  locations  of  the  points  are  used  to  calculate  individual  coordinate 
systems  for  the  triangles. 


An  integer  mapping  matrix  [M]  containing  the  quadrilateral  point  numbers  is 
used  to  convert  point  numbers  for  the  triangles  to  point  numbers  for  the  quadrilateral. 


[M]  = 


Triangle  Point  No. 
- a_  k £ * 

1 2 4 

2 3 1 

3 4 2 

4 1 3 


Triangle  No. 

(I) 

(II) 

(III) 

(IV) 


(41) 


The  data  corresponding  to  the  point  numbers  in  each  row  of  the  matrix  are  transferred  to 
the  triangular  membrane  routine.  The  pivot  grid  point  i is  also  transferred. 

2.  Material  orientation  for  subtriangles. 

The  material  orientation  angle  for  the  QDMEM  element  must  be  transformed  to  a set 
of  angles  related  to  the  base  of  each  subtriangle.  This  requires  the  following 
steps: 
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I.  The  element  coordinate  system  is  defined  as  follows: 


{V.}  = 


i = 1.  2,  3.  4. 


(42) 


(d^i) 


{i} 


^^41> 


{V2>  - {V^}  . 

^^21> 

|{d21>l 

i\}  - {V,}  . 


(43) 

(44) 

(45) 


(k) 


{i}  X {d^^} 

|(i}  X {d^^}| 


(46) 


{j}  = {k}  X {i}  . 


(47) 


The  material  is  oriented  for  each  triangle  as  follows: 


®1 

= Sin  (6)  , 

(48) 

= cos  (e)  , 

(49) 

{p}  = 

{i}  + Si{j}  , 

(50) 

<*n>  ■ 

{V3}  - {V2>. 

(51) 

’'ni' 

= (V4>  - {V3}  . 

(52) 

(v{v>  ■ 

{Vi>  - {V4}  . 

(53) 
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c,- 


(54) 


i = II,  III  and  IV 


({Vf}  X {p})^{k} 


sin  (9^)  , 


(55) 


|(vj} 


The  values  s^.  and  c^.  may  be  passed  to  the  triangular  memhranp  subroutines  in  lieu 
of  the  angles  0^.. 

4.87.4.9  Stiffness  Matrix  Calculations  for  the  QDMEM. 

Three  stiffness  matrices,  which  the  triangular  membrane  routine  calculates  for  each  sub- 
triangle, are  added  to  the  four  matrices  which  will  be  output.  (Note:  only  three  triangles  are 

needed  for  each  pivot  point.)  For  example,  consider  the  case  where  point  2 is  the  pivot  grid 
point,  (i.e.,  the  second  SIL  value  in  the  grid  point  connection  list  equals  the  pivot  grid  point 
SIL  value).  Triangle  I is  calculated  by  entering  the  geometry  and  property  data  for  the  1,  2 and 
4 points  on  the  quadrilateral,  with  number  2 as  the  pivot  point.  The  outputs  from  the  stiffness 
matrix  generation  routines  for  the  TRMEM  are: 


Data  for  triangles  II  and  III  are  also  entered,  and  their  corresponding  matrix  partitions  are 
added.  Triangle  number  IV  is  not  connected  to  point  2. 

4.87.4.10  Flement  Stress  Calculations  for  the  QDMEM  (Subroutine  SQDMEl  and  STQME2  of 


The  solution  for  stress  in  the  quadrilateral  involves  two  phases.  In  the  first 
phase  (SQDMEl)  the  triangular  membrane  partitions  are  solved  for  their  stress-displacement 
matrices.  These  matrices  are  modified  to  correspond  to  the  element  coordinate  system.  They 


[K2i],  [K22]5  [1^24^ 


Moc.le  SDR2). 
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are  added  together  to  form  four  3x3  matrices  relating  displacements  in  global  coordinates  to 
element  stress.  A vector  is  also  calculated  which  transforms  temperature  to  stress. 

The  second  phase  (STQME2)  involves  the  acquisition  of  the  displacement  and  temperature 
data  and  the  calculation  of  the  net  stress. 

The  following  steps  are  used  to  set  up  an  element  coordinate  system  and  obtain  triangle 
to  element  stress  transformations . 

Phase  1 

1.  The  following  quantities  are  calculated: 


1,  2,  3,  4 


(56) 


{d^}  = {V3}  - {V^}  . 


(57) 


{d^}  = {V^}  - {V^}  , 


(58) 


{d^}  X {d2) 


(59) 


{a^2>  = (V  - {V^}  , 


(60) 


(61) 


{a^^}  = {V^}  - {V4}  . 


(62) 


{334>  = (''4}  ■ (''3} 


(63) 
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h = {a^2>^ 

h is  the  perpendicular  distance  between  the  diagonals.  The  mean  olane  of  the  element 
lies  halfway  between  the  diagonals. 

2.  The  unit  vectors  along  the  edges  of  the  four  triangles,  projected  on  the  mean  plane, 
are  calculated  from: 


X2  ~ ” h{k}|  , 


(65) 


{i>  = 


{a^2>  - h{k} 


(66) 


{j}  = {k}  X {j}  , 


[R]  = 


.ml. 

(j-r 


(2x3)  , 


(''12)  ”|o|* 


(V 


ij)  = [RKa^.jl  ij  = 23,  34,  41 


{w^} 


{w“}  = 


\T7^  (''23>  , 


(67) 

(68) 

(69) 

(70) 

(71) 

(72) 


- IT^  ^^34> 


(73) 


^ ' |(''4i}|  (''41)  • 


(74) 


3.  For  each  triangular  membrane,  3 = I,  II*  HI » IV,  of  the  quadrilateral,  the  subroutine 
STRMEl  is  called  to  calculate  the  three  stress  functions  [S..]  where 
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J,  'vt*  • 

where  the  displacements  in  global  coordinates  of  the  noints  on  the  triangle. 

g 

[S^]  is  calculated  using  the  full  thickness  of  the  oanel  for  triangle  6. 

4.  The  stress  functions.  Equation  24,  are  transformed  to  the  element  coordinates  by  the 
matrix  [T^]: 


triangle 


where 


[S?], 


'element 


[T®][S?]. 


[T^] 


"2  2 

w-j  v^2  -2w-jW2 

2 2 

v^2  2w^W2 

2 2 

w-|W2  '^2"'^1 


(76) 


(77) 


and 


(78) 


for  triangle  3 = 1,  II,  HI,  IV. 

5.  Using  the  mapping  matrix  [M],  Equation  41,  the  matrices  are  added.  The  actual  equations 
are: 


[S^]  = + [s”j  + [sj''])  . 

[S2]  = ]<[sj]  + [sj^]  + [sj“])  . 


(79) 

(80) 
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[53]  = }([S“]  + [Sj“]  + [Sj''])  . (81) 

[54]  = }([SJ]  + [S“^]  + [S^''])  , (82) 

= i<{sj}  + (S”}  + {s[II}  + {s[''}).  (83) 

6 6 
Where  [Slj]  i = a,  b,  c,  are  the  stress  matrices  in  Equation  76  and  {Sp  is  the  vector  in 

Equation  25. 

Phase  2 

1.  In  phase  2 the  stresses  are  calculated  from: 


where 


{S^}t  + [S.]  {u^^.}  . 


t 


1 


4 

Z 

i=l 


(S-  - To) 


(84) 


(85) 


and  t^.  are  the  loading  temperatures  at  the  grid  points,  obtained  from  the  GPTT  data  block. 

2.  The  principal  stresses  and  the  angles  are  calculated  in  exactly  the  same  manner 
as  for  the  TRMEM  element. 

4.87.4.11  Mass  Matrix  Generation  for  the  QDMEM  Element  (Subroutine  MASSTQ  of  Module  SMA2). 


The  mass  is  generated  by  the  following  algorithm. 

The  vectors  defining  the  sides  and  the  diagonals  are: 


= 


ij  = 12,  23,  34,  41,  13,  24 


(86) 
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The  area  of  the  subtriangles  defined  by  the  integer  mapping  matrix  [M],  Equation  41,  is: 


Aj  = 2 ^ ^^12^^ 


^TT  " T I^^12^  ^ 


'23" 


^IV  ” 2 ^ ^^14^1 


The  area  of  the  quadrilateral  is: 


(87) 

(88) 

(89) 

(90) 


The  mass  at  each  point  is: 


% ” 2 I ^^^13^  ^ (^24}! 


(Aj  + A^) 

3 

(Att  + K) 


3 (m  + pt) 

3—^  (p  + pt)  , 

■ A , 

^ (p  + pt)  , 


(Ajii  + A^) 


(A,w  + A ) 

(p  + pt) 


For  each  point,  the  diagonal  mass  matrix  is: 


[M^i] 


"'i  : 

^ I 


lO 


i = 1.  2,  3,  4 


(91) 


(92) 

(93) 

(94) 

(95) 


(96) 
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4.87.4.12  Thermal  Load  Computation  For  The  QDMEM. 

The  thermal  loads  are  calculated  using  the  triangular  membrane  routine.  The  EST 
data  are  rearranged  to  correspond  to  each  of  the  four  subtriangles,  and  each  triangle  produces 
a load  in  global  coordinates. 

4.87.4.13  Differential  Stiffness  Computations  For  The  QDMEM  (Subroutines  DQDMEM  and  DTRMEM 
of  Module  DSMGl). 

The  differential  stiffness  matrices  for  the  QDMEM  element  are  generated  by  rearranging 
the  ECPT  data  into  four  sets  of  TRMEM  data.  The  TRMEM  differential  stiffness  routine 
calculates  the  stresses,  generates  the  differential  stiffness  matrix  partitions  in  global 
coordinates  and  inserts  them  in  the  overall  matrix. 
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4,87.4.14  Piecewise  Linear  Analysis  Calculations  (Subroutines  PSTRM  and  PSQDM  of  Module  PLA3  and 
Subroutines  PKTRM  and  PKQDM  of  Module  PLA4) 

The  additional  ECPTNL  and  ESTNL  entries  are: 


original  modulus  of  elasticity  present  on  a MATl  card. 

For  both  PLA3  and  PLA4,  the  element  stress  matrix  calculations  are  generated  in  the  same 
manner  as  Equation  24  of  section  4.87.4.6  (Equations  79  through  82  of  section  4.87.4.8  for 
the  QDMEM),  with  the  exception  that  for  all  DMAP  loops  (of  the  Piecewise  Linear  Analysis  Rigid 
Format)  after  the  first,  the  3 by  3 material  properties  matrix  [G^]  is  replaced  by  a stress- 
dependent  3 by  3 material  properties  matrix  [Gp]  defined  as  follows 


★ 

- The  previously  computed  strain  value  once  removed. 

★ 

e - The  previously  computed  strain  value. 

* 

E - The  previously  computed  modulus  of  elasticity. 


The  previously  computed  membrane  stresses 


All  of  the  above  values  are  initially  zero  with  the  exception  of  E*,  which  is  initially  the 


-1 


(97) 


(sym) 


2(1+v)+4Fo*2 


where 


T 


0 


(98) 


F 


(99) 
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★ * 

2o  - 0 
X 

— 


(100) 


★ * 


(101) 


and  E^  and  v are  the  linear  type  1 material  properties.  If  E = 0,  or  = 0,  then  [Gp]  = [0]. 
Calculate  the  incremental  element  stresses: 


’ Ao. 


i=a,b,c 


(102) 


Aa 


xy  i 


where  [S^.]  is  given  in  Equation  24  of  section  4.87.4.6,  and  tAu^^}  are  the  3 by  1 translational 
displacement  vectors. 

Define  the  element  stresses  for  output  and  for  updating  the  ECPTNL  and  ESTNL: 


= °x  ^°x 


(103) 


"yi 


'xyl 


o + Aa 
xy  xy 


(104) 

(105) 


In  PLA3,  using  the  element  stresses  above,  the  principal  stresses  are  calculated  in  the  same 
manner  as  in  Equations  28  through  31  in  section  4.87.4.6. 

Estimate  the  next  elastic  coefficients  as  defined  by  the  following  equations: 


°xl  - °xl°yl  ^ '^yl  ^ 2°xyl 


1/2 


(106) 


e-|  = f"^(T-|) 


(107) 


where  f is  the  tabula^  stress-strain  function.  (When  x^  is  outside  the  range  of  the  function, 
★ * ★ 

define  E-|  = 0,  e-j  = e , and  e = £q). 
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Calculate: 


Ae  = - e 


Ae 


* ★ 
e - 


^2  ° y(Ac)  , 

where  y is  a load  ratio  parameter  calculated  by  the  module  driver  (PLA3  or  PLA4), 
Calculate: 


T2  = f(e2) 


where  f is  the  tabular  stress-strain  function. 

Then  the  estimated  next  modulus  of  elasticity,  E-j , is  given  by: 


T2  - 


, for  e,  ^ e. 


-1  '■I 

0 , for  €2  = e-| 


The  new  ESTNL  and  ECPTNL  entries  are: 


= e 


= E, 


= <y 


xl 


= o 


yi  ’ 


xy 


= 0, 


xyl 


(108) 

(109) 

(110) 


(111) 


(112) 


(113) 

(114) 

(115) 

(116) 

(117) 

(118) 


In  module  PLA4,  the  element  stiffness  matrices  are  calculated  in  the  same  manner  as 
Equations  15  and  16  of  section  4.87.4.3  (or  as  in  section  4.87.4.9  for  the  QDMEM),  with  the 
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exception  that  [G^]  matrix  is  replaced  by  the  [Gp]  matrix  (Equation  97).  In  the  calculation  for 

[Gp],  E-|  (Equation  112)  is  used  for  E*,  and  the  newly  calculated  membrane  stresses  (Equations  103, 

104,  and  105)  are  used  in  place  of  a*,  a*,  and  a*. 

A y xy 

4.87.4.15  Thermal  Analysis  Calculations  for  the  Membrane  Elements  TRMEM  and  QDMEM 


If  the  subroutines  are  to  be  used  for  thermal  analysis,  word  56  in  labeled  C0MM0N/SYSTEM/  is 
+1 . The  geometry  of  the  element  is  processed,  as  with  a structural  analysis  problem,  to  produce 
the  parameters  x^,  y3»  A,  and  t.  For  thermal  analysis,  the  2x2  material  conductivity  matrix 
[Gg]  is  obtained  by  calling  subroutine  HMAT.  The  transformation  matrices  (2x1)  between  tempera- 
tures at  the  connected  grid  points  and  thermal  gradients  are: 


The  scalar  heat  conduction  terms  generated  in  subroutine  KTRMEM  and  placed  in  the  KGG  matrix 

are: 

kfj  = A t [G^]  LCp  . 

where  i corresponds  to  the  pivot  grid  point,  and  j = 1,  2,  and  3.  The  term  is  placed  in  column 
SILi  and  row  number  SILj  of  the  matrix. 

The  heat  transfer  "mass"  matrix  is  generated  by  subroutine  MTRQD  in  module  SMA2.  The  thermal 
capacity  coefficient  Cp  is  generated  by  subroutine  HMAT.  For  each  triangle,  the  scalar  terms 
placed  in  the  BGG  matrix  are: 

\ 

B-i  = i = SIL^,  SIL2,  SIL3. 
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The  quadrilateral  is  subdivided  into  four  overlapping  triangles.  The  mass  terms  for  each 
triangle  are  divided  by  two  and  added  to  the  appropriate  term  in  the  BGG  matrix. 

The  heat  transfer  "stress"  calculations  are  executed  by  subroutines  SDHTFl , SDHTFF,  and 
SDHTF2.  SDHTFl  rearranges  the  EST  data  for  all  elements  to  a common  format  and  calls  subroutine 
HMAT  to  produce  the  2x2  conductivity  matrix  [G^]  in  element  coordinates.  Subroutine  SDHTFF 
calculates  the  Phase  1 output  terms  with  the  following  calculations: 

For  each  triangle,  the  2x3  matrix  C^  is  calculated  where: 


2_ 

2A 


[C,]  . [c*  cj  cj]  . 


(Vb  - y^)  (Pc  - Pa)  (Pa  - ^b) 

(^c  ■ ^b)  - \)  (^b  - ’'a) 


where  x.  and  y.  are  relative  coordinates  in  the  element  coordinate  system.  For  the  triangle 
a=l,b=2,c=3.  For  the  quadrilateral,  the  element  is  broken  into  four  triangles  where 
(a,  b,  c)  = (1,  2,  3),  (2,  3,  4),  (3,  4,  1),  or  (4,  1,  2).  The  matrices  are  superimposed  in 
the  quadrilateral  to  produce  the  average  2x4  output  matrix  [C^]  where 

[Cg]  = ^ [Cg  Cg  0]  triangle  No.  1 
+ ^[0  Cg  Cg]  triangle  No.  2 

[Cg  0 Cg  C^]  triangle  No.  3 

+ ^ [C^  Cg  0 Cg]  triangle  No.  4 

The  output  of  Phase  1 consists  of  the  matrix  [C^]  and  the  material  matrix  [G^].  The 
Phase  2 routine,  SDHTF2,  calculates  the  gradients,  |^jy|  » vector,  {q},  where 

|ATy|  ^^e) 
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Figure  4.  Triangular  membrane  element. 
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4.87.5  The  TRBSC,  TRPLT  and  QDPLT  Elements 

4.87.5.1  Input  Data  for  the  TRBSC  and  TRPLT  Elements. 

1.  The  ECPT/EST  entries  for  the  TRBSC  and  TRPLT  are 


Symbol 

Descrintion 

SIL^,  SIL2,  SIL3 

Scalar  indices  for  the  connected  grid  ooints 

N^.  X..  Y..  Z.  ) 

Reference  numbers  for  local  coordinate  system 
and  locations  in  basic  coordinates  of  the  three 

II 

ro 

connected  grid  points 

I 

Bending  moment  of  inertia  per  unit  width 

t 

Effective  thickness  for  transverse  shear 

Mat  Id.^ 

Material  property  identification  number  for  bending 

Mat.  Id.^ 

Material  property  identification  number  for  shear 

0 

Material  orientation  angle 

U 

Nonstructural  mass  per  area 

Fiber  distances  for  stress  calculations 

t 

u 

Temperature  of  element  for  material  orooerties 

2.  ECPT  entries  for  the  QDPLT. 

The  entries  are  the  same  as  those  for  the  TRPLT  exceot  that  four  points  are  used. 

3.  Coordinate  system  data 

Using  N^. , , Y^,  and  the  CSTM  data  block  the  3 by  3 global-to-basic  coordinate  trans 

formation  matrices  [T^]  are  produced  for  each  point  i via  subroutines  TRANSD  or  TRANSS. 

4.  Material  data 

Using  the  material  property  identification  numbers,  the  orientation  angle,  the  element 
temperature  and  the  MPT  and  DIT  data  blocks,  the  following  data  are  calculated: 
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Symbol 
for  Mat  Id^ 

for  Mat  Id^ 


Description 

3x3  elastic  property  matrix 
Structural  damping  coefficient 

Shear  coefficient 


For  the  TRPLT  and  the  QDPLT,  the  orientation  of  the  material  relative  to  each  sub- 
triangle must  be  calculated  from  the  geometry  and  the  orientation  given  for  the 
whole  element.  The  details  of  this  calculation  are  given  in  the  next  section. 

4.87,5.2  General  Calculation  for  the  TRBSC  Element 

1.  The  coordinate  system  is  defined  by  the  three  connected  points  a,  b and  c. 

{i},  {j}  and  {k}  are  the  unit  vectors  along  the  x,  y and  z axis  in  basic  coordinates. 

X^. , Y^.  and  Z^.  are  the  location  coordinates  of  the  three  noints,  i=a,  b,  c,  (The  element 
coordinate  system  for  the  basic  bending  triangle  is  shown  in  Figure  2 of  section  5.8  of 
the  Theoretical  Manual). 


- Xa 

Yb  - Ya 


Zb  - Za 


0) 


^Vac>  = 


\ - 'a 


- Za 


. 


(2) 


The  X axis  is  defined  by  the  unit  vector: 


{i}  = 


»,b> 


(3) 


Calculate: 


{i}  X {V„} 

= wrxiv^ 


(4) 
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The  y axis  is  defined  by  the  unit  vector, 

{j}  = {k}  X {i}  . (5) 

2,  The  locations  of  the  points  in  element  coordinates  are: 

Xa  = Ya  = Yb  = 0 . (6) 

(7) 

(8) 

(9) 

3.  The  3x6  transformation  matrix  from  the  six  displacements  in  element  coordinates 
to  the  three  degrees  of  freedom  used  in  the  plate  is: 


»c  • »ac7  • 


y,  ■ (V,/  (J)  . |{1)  X (V,  >1 


tE]' 


0 

0 


(10) 


4.  The  coefficients  used  for  the  plate  are: 


[D]  = I[Gj^]  . 
“G 


[Go]  - t 


cr 

G. 


(11) 

(12) 
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where  CG|jJ  is  the  3x3  material  matrix  for  bending  and  G^,  is  the  coefficient  for 

transverse  shear.  The  area  of  the  triangle,  A,  the  locations  of  the  c.g.,  x and  y, 

and  the  radii  of  gyration  about  the  origin,  p^,  and  ^ are  given  by: 

X y xy 


^ = 2"byc  • 


y = 


px  = 1 . 


(13) 

(14) 

(15) 

(16) 


y 

2 y 


^xy  ' 12  ^’^c^  • 


(17) 

(18) 


5.  The  stiffness  matrix  in  generalized  coordinates  {q}  is: 


[kX]  = 4A 


°11  ^ '’l3 


3x0, t 

_L  -I  — -L 


xD 


j ^33  I ^23 


22 


3xD 


13 


12 

1^2^  3 

^23 
"2yD33 


3yD 


12 


3yD 


23 


SYMMETRICAL 


|_^°12_  L^vD23_ 

2 I 3pJd12 

“■n:  “ 


3yD, 


x^°22 


|Sy°23  ^ 


22 


'Pxy^l2 

ir^D- 

3PxyD22 

|+6p^D23 


9PyD22 


(19) 
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6.  The  transformation  from  generalized  coordinates  to  grid  point  displacements  (relative 
to  point  "a"  of  the  triangle)  with  no  transverse  shear  is: 


[H]  = 


-2xu 


-2x. 


-y,  0 


-3x. 


^c^c  ^c 


2.3  2 3 

Vc  Vc 


"c  0 2x^y^  3y^ 


■3^c  -Vc 


(20) 


where  {q}  = [H]{u}  (no  transverse  shear) 

7.  If  transverse  shear  effects  are  to  be  calculated  (G^  t^  f 0),  the  followino 
steps  are  followed: 

a.  Define 


[J]  = [G2]"''. 

b.  Calculate  the  transformation  matrix  of  the  shear  coordinates: 


V =- 


^ 0 I 0 I 6(J^^D-[^+J^2p^3)  I (2D^2'^4D33)+6J^2'^23 |^^'’ll'^23'^'^12'^22^ 

0|  0|  Oj  6(Ji2D-i'|+J22’^13^  | '^12^^^12‘''^'^33^'''®'^22'^23  2°23''''^22'^22^ 


(21) 


(22) 
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where 


i;!  ■ 'V «» 


(23) 


c.  The  stiffness  matrix  of  the  shear  terms  is  added  to  the  bending  stiffness  matrix. 

[k'’]  = [KX]  + CG2]  [H^q]  . (24) 

d.  The  effects  of  shear  deflection  on  the  transformation  from  general  to  displacement 
coordinates  is  calculated: 


[H]  = [H]  . 


0 

0 

0 

"b^qi6 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

C yqi4 

""c^qis 

"c^qi6 

+y  H ^ 

" YP24 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

(25) 


If  no  shear  exists,  [H]  = [H] 

8,  The  matrix  [H]  is  inverted: 


[Hq,]  = [H]- 


(26) 


9.  The  rigid  body  effects  are  given  by  the  matrices  [Bj^]  and  [B^]  defined  as  follows; 
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4.87 


[Bb]  = 


1 0 

0 1 
0 0 


[B,]  = 


1 

0 1 
0 0 


-"b 

0 

1 

0 

1 


10.  The  3x3  stiffness  matrix  partitions  in  element  coordinates  are  calculated  as 
follows: 


[K]  = [k'’]  [H-'']  . 


(27) 


(28) 


(29) 


"kbb 

1 

\ 

1 

•^bc 

_^b 

1 

1 

1 

'cc_ 

[K]=> 

[k^,]  = -[k,,]  [B,]  - [k,^]  [B^]  . 

= -[b/  [kba]  - [Bef  [kea^ 


t^ab^  = tkba]'  • 


(30) 

(31) 

(32) 

(33) 

(34) 

(35) 


.5.3  Stiffness  Matrix  Calculations  for  the  TRBSC  Element  (Subroutine  KTRBSC  of  Module  SMAl ) , 

1.  If  the  basic  triangle  is  used  by  itself  as  a TRBSC  element,  the  stiffness  matrices 
are: 


[Ki,] 


“ 

r 1 n 

^ 0 
1 

1 -1 
C_i. 

1 

J 

1 

o 

i -- 

1 T 

h- 
1 — 1 
LiJ 
1— J 

1 1 

•r 

•r 

1 1 

1 1 

UJ 
1 1 

0 

I'^i 

' J 

L“  h J 

— 

I 

(36) 
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where 

i = a,  b and  c 
j = a,  b and  c 

2.  The  structural  damping  matrices  are  calculated  using  g^,  the  structural  damping  coeffi- 
cient, for  the  referenced  bending  material.  The  6 by  6 damping  matrix  partitions  are: 

■ 9,  . (37) 

4.87.5.4  Stress  Calculations  for  the  TRBSC  Element. 

The  stress  calculations  involve  two  phases.  The  first  phase  is  used  to  calculate  the 
matrix  relations  between  element  forces  and  grid  point  displacements. 

1.  The  relation  between  element  forces  and  generalized  coordinates  is: 


2Dn 

^•^13 

20^2 

6xD^^ 

25®^  2'^ 

4yD^3 

6yD,2 

2D]  2 

2D22 

6xDi2 

2x822+ 

4yD23 

6(^322 

20]  3 

^•^33 

2D23 

6xDi3 

2xD,,+ 

'^^'’33 

6yD23 

0 

0 

0 

-6^11 

-2Di2- 

^“^33 

-6D23 

_0 

0 

0 

-60^3 

-6D23 

-6D22 

where 


CK3]  {q}  . 


(38) 


(39) 
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Note:  When  the  basic  triangle  routine  is  used  for  stress  recovery  in  the  TRPLT  or 

QDPLT,  the  values  x and  y in  the  above  matrix  are  replaced  by  x^  and  and  y^. 

2.  The  matrix  [H]  is  calculated  and  inverted.  The  [B]  matrix  is  calculated  ([B]  is  a 
6x3  matrix,  the  [B^]  matrix  (Equation  27)  comprising  the  first  three  rows  and  the  [B^] 
matrix,  Equation  28,  comprising  the  last  three  rows).  The  [E]  matrix  and  the  global-to- 
basic  transformation  [T^],  [Tj^J,  [T^]  are  generated.  [H]"^  is  partitioned. 

[H]’''  = i H^^].  (40) 

The  element  force  - global  displacement  matrices  are: 


= 

[S^] 

[Sc] 


-[k5][H]-^[B][Ef 


I 


• T. 

• b 


{S^}  = [D]{a} 


(41) 

(42) 

(43) 
(43a) 


where  a is  the  vector  of  thermal  expansion  coefficients  for  the  bending  material. 

3.  The  second  stage  of  stress  calculations  involves  the  use  of  the  displacement  vectors 

{u,},  {u.  } and  {u_>.  The  element  forces  are; 
a D c 


xy 


I [S.]{u.}  - {M  } , 

i=a,b,c 


(44) 
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where  {M^}  is  the  vector  of  thermal  moments  given  on  a TEMPP2  data  field  or  if  the  gradient 
is  given: 

{M^}  = -t'{S^} 

With  no  thermal  loads  the  stresses  are: 


With  direct  thermal  bending  moments, 


given,  the  stresses  are: 


With  thermal  gradient  data, 


T 


the  stresses  are: 


T (Ti  - ’ 


1=1,2 


(45a) 


(45b) 


T^.  is  the  given  temperature  at  point  i and  f is  the  average  temperature  of  the  element.  If 
no  T^  values  are  given.  Equation  (45)  is  used. 
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The  principal  stresses  and  their  orientation  are  calculated  in  the  same  manner  as  those  for 
the  TRMEM  element,  Section  4.87.4.6. 

Thermal  loads  are  generated  for  this  element  in  the  SSGl  module.  See  Section  4.87.5.12  for 
the  equations. 

4.87.5.6  Stiffness  Matrix  Calculations  for  the  TRPLT  Element  (Subroutine  KTRPLT  of  Module  SMAl). 

The  NASTRAN  bending  triangle  (triangular  plate  element,  TRPLT)  is  fabricated  from  three  basic 
bending  triangles.  The  geometry  and  notation  are  shown  in  Figure  5.  The  general  approach  is  to 
calculate  the  stiffness  matrices  for  all  three  subtriangles  or  basic  triangles  and  use  the  con- 
straint equation  of  equal  slope  at  the  midpoints  of  the  connected  edges  to  calculate  a reduced 
stiffness  matrix.  Since  only  the  partitions  of  the  stiffness  matrix  related  to  one  noint 
(the  pivot  grid  point)  are  used  for  each  calculation,  the  extra  partitions  are  not  used. 

In  the  NASTRAN  system,  the  basic  bending  triangle  calculations  are  in  subroutine  form, 
and  the  variables  necessary  to  call  it  are:  x^,  x^,  y^,  the  property  and  material 

coefficients,  and  the  transformations  for  orienting  the  anisotropic  materials.  The 
following  steps  are  used  to  calculate  the  overall  stiffness  matrix  for  the  composite  triangle. 

1.  The  element  coordinate  system  is  defined  by  the  location  of  the  three  grid  points 

in  basic  coordinates,  {x(l)>,  {x(2)>  and  {x(3)}: 


{V2>  = (x(2)}  - {x(l)}  , 

(46) 

{V3}  = {x(3)}  - {x(l)}  , 

(47) 

(48) 

{V„} 

{i}  = . 

(49) 

Y3  = |{i}x{V3:|  , 

(50) 

{i}  " {V,} 

(k>  = V ^ . 

(51) 
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{j}  = {k}  X {i}  , 

[E]  = 


{k}[  0 I 0_ 

0 1 {i}  I{j} 

Li  I -I 


(6  X 3) 


(52) 


(53) 


The  locations  of  the  points  in  this  coordinate  system  are: 


( o) 

{R(l)} 

" 1 0 1 * 

(54) 

{R(2)> 

■ {*'l' 

(55) 

( 0 ) 

^3  " 

{V3}'^  {i}, 

(56) 

(R(3)} 

= N . 

(57) 

(R(i))  . ^ *31 


2.  For  use  in  transferring  points  to  the  subtriangles,  the  integer  matrix  [M]  is 
fo  rmed : 


[M]  - 


Point  a 

1 
2 
3 


Point  b 

2 

3 

1 


Point  c 

4' 

4 
4 


Subtriangle  3 
I 

II 

III 


(58) 


(59) 


The  Roman  numerals  I,  II  and  III  indicate  the  subtriangle  numbers.  Points  1,  2 and  3 are 
the  corners  of  the  whole  triangle  whose  centroid  is  denoted  by  4.  Points  a,  b,  and  c are 
the  corners  of  the  subtriangles.  Point  c in  the  subtriarigles  is  always  the  center  point,  4. 
(see  Figure  5). 


Note:  Steps  3 through  7 are  performed  for  each  subtriangle. 
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3.  The  location  of  the  three  points  for  each  subtriangle,  3,  is  defined  by  the 
vectors  {r^.  (a)},  {r^.  (b)},  {r^. (c)}.  In  terms  of  the  original  vectors  these  are: 


ri(a)  = R.(M(e,l))  1 

(60) 

r.(b)  = R.(M(8,2))  > 

i = 1,  2 . 

(61) 

^^{c)  = R.(4)  1 

(62) 

where  M(3,  i)  is  the  (3,  i)  element  of  the  [M]  matrix. 

4.  The  variables  mecessary  to  calculate  a basic  bending  triangle  are  Xj^,  x^  and  since 
the  local  coorcinate  system  for  each  subtriangle  is  chosen  such  that  the  "a"  point  lies  on 
the  origin  and  the  "b"  point  lies  on  the  x axis. 

For  each  triangle  the  following  are  calculated: 


- r^(a)]^  + [r2(b)  - r2(a)]^  (length  of  base), 

(63) 

Wi  = j (r^  (b)  - r^(a)), 

(64) 

«2  = j (r2(b)  - r2(a))  . 

(65) 

5.  The  matrix  [T]  used  for  transforming  the  element  coordinates  to  subtriangle 
coordinates  is  formed: 


[T]  = 

The  material  orientation  angle,  0^,  is 

sin  (e^) 
m 

cos  (0^) 


1 0 


0 w-j  w^ 


-W2  W^J 


calculated  for  each  subtriangle. 


^ sin  (0)  - ^2  • 


cos  (0)  + W2  sin  (0) , 


(66) 

The  equations  are; 

(67) 

(68) 
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The  displacements  in  the  subtriangle  system  are  equal  to  [T]  times  the  displace- 
ments in  the  original  system  (note  det  [T]  is  unit  length,  = R-j(2),  = R-j(4)  and 

^c  ” ^2^^^  subtriangle  I). 

6.  The  parameters  x^,  x^  and  y^  are  then  computed: 

Xb  = w^[r^(b)  - r^(a)]  + w^Cr^Cb)  - r2(a)]  , (69) 

Xc  = w^[r^(c)  - r^(a)]  + W2[r2(c)  - r2(a)]  , (70) 

^c  ^ +w^[r2(c)  - r2(a)].  (71) 

7.  The  stiffness  matrices  are  formed  as  in  the  basic  bending  triangle  (Equations  30  through 
35)  and  give: 


[k.^],  [k-b],  [k.^],  [k^^]  [k^b^»  t*^cc^  *’  " point. 

They  relate  forces  and  displacements  in  the  subtriangle  coordinate  system  and  are  trans- 
formed to  the  overall  element  coordinate  system  (i.e.,  the  same  system  as  subtriangle  I). 

Since  the  stiffness  matrices  for  each  pivot  grid  point  are  calculated  separately, 
not  all  of  these  partitions  are  used.  For  each  pivot  grid  point,  i,  the  following 
partitions  are  used: 


and 


[k-|^],  [K2^],  [^^4]  . 

The  integer  mapping  matrix  [M]  is  used  to  determine  if  and  where  to  add  the  nartitions. 
The  steps  used  for  pivot  point  i and  triangle  3 are: 
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a)  [if  [kg^]  [T]  is  added  to  m = M(6,l) 

[T]^  [T]  is  added  to  m = M(6,2) 

[T]^  [kj,^]  [T]  is  added  to 

b)  IfM(e,l)  = i: 

[T]^  [l<aa]  LT]  is  added  to  [K^^J 
[T]^  [kab]  [T]  is  added  to  I = M(6,2) 

or  if  M (3,2)  = i 

[T]^  [kbb]  [T]  is  added  to 

[T]^  [kab]^  [T]  is  added  to  I = M(3,l) 

c)  The  above  is  repeated  for  each  of  the  three  subtriangles. 

8.  The  number  4 point  in  the  middle  is  a dummy  point,  and  since  the  displacements  at  point 
4 are  functions  of  the  other  displacements,  it  will  be  removed  from  the  problem  by  including 
the  calculations  for  the  point  4 displacements  in  the  calculations  for  the  corner  displace- 
ments, as  shown  in  steps  8a,  8b,  8c  and  8d, 

a.  Calculate  the  following  geometric  constants: 


(72) 


2 1/2 


(73) 


c 


X 


c 


(74) 


2 


(75) 


c 


(76) 
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b.  The  fonr.ulas  for  the  locations  of  the  midpoints  are: 


(77) 


= 2^c 


(78) 

(79) 


^2  = 


(80) 

(81) 


c.  The  [H^]  matrix  is  calculated  as  follows: 


tv  = 


“2xi  c-j  (x-jS-j  - yi^i)  "^x-jCi  yi(2x-|S-j  - y-iC-j)  Sy-jS-j 

2 2 

2x^  {y^2^2  ^2^2^  ^^2^2  ^^2^2  ^2^^^2^2  ^2^2^  ^^2^2 


(82) 


The  slopes  in  terms  of  the  deflections  of  points  a,  b and  c are  defined  by  the 
matrices: 


tvlv^  = 


tv^  = 


-1 


[B]  + 


0 s^ 

0 $2  C2 


(83) 


(84) 


where  [H]’^  and  [B]  are  calculated  while  generating  the  stiffness  matrices.  [H]"^ 


is  the  inverse  of  the  6x6  matrix  in  Equation  25,  and  [B]  = -jT- 


CJ 


is  a 6x3  matrix 


where  [Bj^]  and  [B^]  are  calculated  in  Equations  27  and  28  respectively. 
These  are  transformed  to  element  coordinates  by: 


:h^]  ■ [T] 


(85) 


d.  Each  row  of  the  matrix  corresponds  to  the  slope  angle  of  the  mid-point  of  the  sides. 
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The  first  row  defines  the  slope  of  the  normal  to  the  line  connecting  point  "a"  to  the 
center  point.  The  second  row  defines  the  slope  of  the  normal  to  the  line  connecting 
point  "b"  to  the  center  point.  Using  the  matrices,  four  3 by  3 matrices,  [G^^], 

are  formed  as  follows: 


The  [MJ  matrix  is  now  used: 


[M]  = 


(86) 


For  the  matrix,  (a  = a,  b and  c;  3 = I,  II  or  III),  the  number  M(3,a)  which  identifies 

the  matrix  [Gj^]  is  found.  The  three  terms  in  the  first  row  of  are  added  to  the 

M(3,l)  row  of  the  [Gj^]  matrix.  The  three  numbers  in  the  second  row  of  are  added  to 

the  M(3»2)  row  of  the  [Gj^]  matrix.  This  procedure  is  repeated  for  the  three  matrices 

for  each  triangle  3. 


The  stiffness  matrix  partitions  of  the  whole  plate  are  computed  from: 


[K^j]  = [Kij]  - ([G^r^EG.D^CK.^f  - [K.4][G4]-1[G^] 

+ (LG^]  ^[G^-])^[K^4][G4]  ^[G^]  for  i = 1,  2,  3 ^ 

.i  " 1 > 2,  3 

where  [K.  .]  are  computed  as  in  step  7. 

• J 


(87) 


9.  Using  the  locations  of  the  three  grid  ooints  in  basic  coordinates,  the  3x3 
transformation  matrices  [T.]>  j = 1,  2,  3,  are  calculated.  The  6x6  matrices  [C.] 

j J 

are  formed  as: 

j = 1,  2,  3 . (88) 

10.  The  stiffness  matrix  partitions  in  global  coordinates  for  oivot  point  i are 
computed  from: 


[Cj]  = 
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[K?j]  = [C^.f[E][K®.][Ef[C.]  (6x6)  . 


where: 

[K?j]  was  calculated  in  step  8 
[E]  was  calculated  in  step  1 


[C^-]>  [Cj]  were  calculated  in  step  9 


© 


Figure  5.  The  triangular  plate  element,  TRPLT. 


1.  2,  3 
4 

I.  II,  III 
a,  b,  c 


= GIVEN  GRID  POINTS 
= CENTROID  OF  TRIANGLE 
= BASIC  SUBTRIANGLES 
= ORDERED  VERTICES  OF  SUBTRIANGLES 
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4.87.5.6  Structural  Damping  Matrices  for  the  TRPLT  Element. 


The  structural  damping  matrices  are: 


(90) 


where  g^  is  the  structural  damping  coefficient  for  the  bending  material  referenced. 

4.87.5.7  Stress  and  Element  Force  Calculations  for  the  TRPLT  Element  (Subroutines  STRPLl 
and  SBSPL2  of  Module  SDR2). 

For  stress  recovery,  the  relationship  between  the  center  point  and  the  corner  noints 
is  used  to  describe  the  stress  functions  for  each  subtriangle.  The  stresses  in  each  sub- 
triangle at  the  center  point  are  averaged  to  provide  the  final  element  stress  and  forces. 

1.  STRPLl  is  used  to  calculate  the  phase  1 stress-displacement  relations. 

The  following  data  are  calculated  using  the  same  equations  as  those  for  the  stiffness 
matrix  generation  routines. 

[C^.]  - i = 1,  2,  3 - Global-to-basic  transformations 

[E]  - element  to  basic  coordinate  transformation 


Xb»  x^,  - subtriangle  point  locations 


Values  computed  for 
each  subtriangle 


sine,  COS0  - material  orientation 

w^ , W2  - element-to-subtriangle  coordinate 


transformation 


slope  angle  relation- 
^ ^ ^ ship  matrices 


For  each  subtriangle,  6 = I,  II,  III,  the  following  matrices  are  formed; 
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[T^] 


1 0 
0 
0 


-Wo  W 


1 


(91) 


[V^]  = 


0 

_ 0 


-W]W2 


2w-|W2 


2 2 

W1-W2 


0 

0 

0 


1 


(92) 


For  each  subtriangle  three  5x3  transformations  are  calculated,  [S^],  a = a,  b,  c. 

These  are  transformed  and  added  to  the  corresponding  matrices  for  each  point  with  the  equation: 


[S*]  = i i:  [V^][S^][T®]  , (93) 

B 

where  the  a,  which  denotes  points  on  the  subtriangle,  corresponds  to  the  grid  point  M 
on  the  overall  triangle. 

a = a,  b,  c . (94) 

The  matrices  are  added  to  the  corresponding  [Gj^|]  matrix  with  the  appropriate 

row  interchanges.  When  the  data  for  all  three  subtriangles  have  been  generated,  the 
following  operations  are  performed: 

[Sj]  = [S*]  - [sJ][G4r''[Gi]  (95) 

for  M = 1,2,3; 

[S,^]  = [s5][Ef[c.]  (96) 

for  M = 1,  2,  3 . 
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2.  Phase  2 

a)  The  vector  of  forces  is  computed  first. 

M 


xy 


3 


,L 


(97) 


where  {M^)  is  the  thermal  moment  vector.  If  a thermal  gradient  is  given: 


IMg}  = - {S^)T 


b)  With  no  given  temperatures  at  the  stress  points,  the  stresses  are  then  calculated 
from  the  equations 


XT 


(98) 


‘'yi  ■ 


i = 1 , 2 . 


(99) 


V^i 

°xyi  ■ I 


(100) 


If  temperature  values  T^.  at  the  stress  points  are  given  the  following  equations  are  used. 


°xi 


°yi 


a 

xyi 


/ M ' 

1 X 

/M  ( 

, + (M  } 

] ^ 

’ e 

1 M ' 
\ xyj 

- Y (T.  - T){S^}  , i = 1 or  2 


or 
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- z.t’  . J){S^] 


i = 1 or  2 


where  T is  the  gradient  or  {M^}  is  the  thermal  moment  vector.  T is  the  average  tempera- 
ture for  the  element.  The  principal  stresses  and  angles  are  calculated  using  the  same 
formula  as  those  for  the  membrane  element  (see  Section  4.87.4.fi,  Equations  28,  29  and  30). 

Thermal  loads  are  generated  for  this  element  in  the  SSGl  module.  See  Section  4.87 
4.87.5.11  for  the  algorithm. 


4.87.5.8  Stiffness  Matrix  Calculations  for  the  QDPLT  Element  (Subroutine  KQDPLT  of  Module  SMAl ) 


The  quadrilateral  plate  element  uses  two  sets  of  overlapping  triangles  as  shown  in 
Figure  6.  The  logic  is  the  same  as  that  for  the  quadrilateral  membrane  except  that  the  order  of 
the  points  of  the  triangles  is  chosen  to  place  the  triangle  coordinate  systems  along  the 
diagonals. 

1.  The  following  equations  are  used  to  calculate  the  three  unit  vectors,  {i},  {,i} 
and  {k},  which  define  the  element  coordinate  system. 
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{V.}  = 


. i = 1.  2.  3.  4. 


The  diagonals  are: 


{d^}  = {V3}  - {V^}  , 
{d2}  = {V^}  “ {V2>  . 


The  area  is  calculated  from: 


A = 1|  ({d^}  X {d2))|  . 


The  normal  to  the  olane  is  calculated  from: 


(d, } X {dp} 

{k}  = ‘ £_ 

|{d^>  X (d2}|  ’ 


{a^>  = {V2>  - {V^}  , 
h = 1 {a^}'''  {k}  , 

The  vectors  lying  in  the  new  plane  are  computed  from: 

{a,}  - 2h{k> 

{i}  = _! ^ , 

|{a^}  - h(k}| 


(101) 


(102) 

(103) 


(104) 


(105) 

(106) 
(107) 


(108) 


{,i>  = {k>  X {i>  . (109) 

The  nonzero  positions  of  the  points  in  the  plane  are  computed  from: 


4.87-98  (8/1/72) 


STRUCTURAL  ELEMENT  DESCRIPTIONS 


{a.f  {1}  , 

(110) 

{d.}^  {i}  , 

(111) 

{d./  {j}  , 

(112) 

X2  + {{d2}^  {i})  . 

(113) 

{d2}'^  {3}  , 

(114) 

u ■ 

(115) 

2.  Element  interior  angle  tests. 

The  interior  angles  of  the  quadrilateral  must  be  less  than  180®.  The  following 
checks  accomplish  this  task. 

Test  Point  with  angle  greater  than  180® 


If 

^4 

< 0 

1 

If 

^3 

< 0 

2 

If 

X4 

> X2  - (X2  - 

X ) ^ 
h>  Y3 

3 

If 

^3 

^3 

‘7;  *4 

4 

4 


3.  The  relative  data  for  each  subtriangle  must  be  calculated  and  passed  to  the 
matrix  calculation  subroutine.  The  integer  mapping  matrix  [M]  denotes  which  points, 
1,  2,  3,  and  4 of  the  quadrilateral,  are  used  in  the  subtriangle.  The  row  position 
indicates  the  sub triangle  to  which  the  point  belongs,  and  the  column  position 
indicates  the  corresponding  point  in  that  subtriangle. 
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[M]  = 


Point  a 


Point  b Point  c 


Triangle 

No. 


I 

II 

III 

IV 


4.  For  each  triangle  the  stiffness  matrix  is  calculated  in  its  own  coordinate 
system.  This  system  has  its  origin  at  point  a,  point  b lies  on  the  x axis, 
and  point  c has  a positive  y component.  {R(i)}  values  are  transferred  to  (r(a)}  values 
(a  = a,  b,  c),  and  the  following  calculations  are  performed: 


{v(b)>  = {r(b)}  - {r(a)}, 
{v(c)}  = {r(c)l  - {r(a)}. 


(116) 

(117) 


_ (v(b)} 

|{v(b)}| 

\ = |tv(b)}l 


(118) 


(119) 


1 

W2~ 

{ 

^ = 

(v(c)} 

be 

\ 

. 

locations  needed  by  the  subroutine. 

1 0 

0 

[T]  = 

0 w^ 

0 -w^ 

(120) 


(121) 


4.87-100 


STRUCTURAL  ELLMENT  DESCRIPTIONS 


is  the  X component  of  the  new  x axis  and  is  its  y component,  [T]  transforms 
the  z displacement  and  the  two  angles  from  the  quadrilateral  system  to  the  triangle 
sys  tern . 

In  order  to  calculate  the  material  matrices  in  the  basic  triangle  routine,  the  material 
orientation  angle,  6^,  is  : 


sin0j^  = w^  si n6  - ^2  , (122) 

cos0j^  = w-|  COS0  + w^  sin0  . (123) 

w-|  and  W2  are  the  cosine  and  sine  of  the  angle  made  between  the  base  of  the  triangle 
and  the  material  orientation  axis. 

5.  The  output  of  the  basic  bending  triangle  routine  are  the  3x3  matrices: 

^^aa^’  ^^ac^’  ^*^bc^’  ^^cc^  • 

To  transform  these  to  the  quadril ateral  system  the  following  equation  is  used: 

[K^j]  = ^[Tf[k..][T]  . (124) 

These  matrices  are  added  to  the  current  positions  in  the  quadrilateral  matrix 
partitions  using  the  [M]  matrix  in  step  3. 

6.  For  each  pivot  point  i the  following  3x3  partitions  are  formed: 

for  .i  = 1.  2,  3,  4 . 

7.  Using  the  geometry  data,  the  3x3  global -to-basic  transformations  [T.] 

J 

are  formed  for  j = 1,  2,  3,  4.  These  are  expanded  to  the  6x6  matrices  [Cj]: 


4.87-101 


MODULE  FUNCTIONAL  DESCRIPTIONS 


'0 

1 0 

II 

1 — 1 

0 

1  1 

0 

8.  The  stiffness  matrix  partitions  in  global  coordinates  are  found  from: 


[Kfj]  = [Cif[E][k®.][Ef[C.]  . 


0 25) 


(126) 


where  [E]  is  defined  in  Equation  53. 

4.87.5.9  Stress  and  Element  Force  Calculations  for  QDPLT  Element  (Subroutines  SODPLl  and 
SBSPL2  of  Module  SDR2) 


1.  SQDPLl  calculates  the  phase  1 stress-displacement  relations.  A coordinate  system 
matrix  [E],  the  subtriangle  base  vectors  {w^  W2)'^  and  the  global-to-basic  trans- 
formation matrices  are  calculated  with  the  same  equations  as  those  used  in  the  plate  element 
stiffness  matrix  calculations.  For  each  subtriangle,  the  following  matrices  are  formed; 


[T®]  = 


-w^ 


0 J 


(127) 


[V^]  = 


W1W2 


-W1W2 


-2w-|W2 


2w^W2 


(w^-W2) 


-Wo 


(128) 
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For  each  subtriangle  the  stresses  must  be  calculated  at  the  intersection  point  of  the 
diagonals.  In  the  quadrilateral  system: 


^2  ^3  ^4 

'5  X3y^  + (x2  - x^)y3 


(129) 


^5  = 3^  • 


(130) 


For  each  subtriangle; 


{Vg}  = {r(a)}  - •.  Xq  = UVsll;  y = 0; 


(131) 


where  and  y^  denote  the  location  of  the  intersection  of  the  diagonals  of  the  quadrilateral  in 
the  subtriangle  coordinate  system.  The  stresses  are  calculated  at  this  point, 

Q 

[T^]  transforms  the  translation  and  two  rotations  in  the  element  system  to  the  sub- 
triangle  system.  [V^]  transforms  the  three  moments  and  two  shears  of  the  subtriangle  to  the 
element  system.  For  each  subtriangle  three  5x3  transformations  are  calculated,  [S^], 
a = a,  b,  c.  These  are  transformed  and  added  to  the  corresponding  matrices  for  each 
point  with  the  equation: 


[Sj],  = I [V^][sf][T®]  . 


(132) 


where  the  a,  which  denotes  points  on  the  subtriangle,  corresponds  to  the  grid  point  M on  the 
quadrilateral  . 


2.  Using  the  basi c-to-element  and  gl obal-to-basi c transformations,  the  stress 
matrices  [Sj^^]  in  global  coordinates  are  formed  from: 


[S,.,]  = [sf^][E] 


(133) 
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The  thermal  load  vector  is: 


{S^}  = [D]{a} 

3.  The  additional  data  for  phase  2 calculations  are 

I,  Z-|,  from  the  ECPT  data. 

4.  Phase  2 (Subroutine  SBSPL2) 

The  5 by  6 [Sj^]  matrices  are  used  in  the  same  manner  as  the  TRPLT  elements  (see  Equations 
97  through  100). 

4.87.5.10  Lumped  Mass  Matrix  Generation  for  the  TRBSC,  TRPLT,  and  QDPLT  Elements  (Subroutine 
MASSTQ  of  Module  SMA2). 

The  lumped  mass  matrices  are  calculated  in  the  same  manner  as  the  triangular  or  quadrilateral 
membrane  except  that  the  material  density  is  not  used  (see  Equations  86  through  96  in  section 
4.87.4.10).  The  only  contribution  to  the  mass  matrix  from  these  elements  is  the  nonstructural 
mass,  p. 
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4.87.5.11  Coupled  Mass  Matrix  Calculations  for  the  TRBSC  Element  (Subroutine  MTRBSC  of  Module 


The  mass  properties  of  the  two-dimensional  elements  are  defined  by  their  geometry,  the  mass 
density  given  by  the  material,  the  thickness  of  the  element  and  the  nonstructural  mass.  The 
normal  execution  of  NASTRAN  will  result  in  the  calculation  of  the  total  mass  of  the  element  and 
distribute  it  as  lumped  masses  at  the  connected  grid  points  (subroutine  MASSTQ  of  module  SMA2). 

If  the  parameter  C0UPBAR  is  set  by  the  user,  the  elements  with  bending  properties  will  have  their 
mass  distributed  according  to  their  elastic  properties.  This  results  in  element  mass  matrices 
with  directional  properties  and  coupling  terms  between  points  in  an  element.  Since  the  thickness 
of  the  TRBSC  element  is  zero,  a coupled  mass  matrix  for  this  element  does  not  exist.  The  MTRBSC 
subroutine  is  used  exclusively  by  subroutines  MTRPLT  and  MQDPLT. 

1.  The  mass  matrix  [M]  in  generalized  coordinates  is  calculated  in  the  following  steps. 


SMA2) 


A. 


Oj 


j = 0,1  ,...6 


(134) 


° U + U U+j+iiJ  U+J+^^-l.j 


i = 1,2, ...6 
j = 0 , 1 , ...  6 


(135) 


i = 0,1 . .6 

j = 0,1, ...6 


, . . . 


(136) 


(i+l)(i+j+2) 


i = 0,1 . .6 
j ” 0,1, •••6 


, . . . 


(137) 


where  m is  the  nonstructural  mass,  and  where  and  are  computed  in  Equations  7 

8,  and  9 respectively. 
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b.  Partition  [M]  into  submatrices. 


[M]=^ 

where  [M  ] is  a 3 by  3 matrix,  [M^^]  is  a 3 by  6 matrix  and  [M^  1 is  a 6 by  6 matrix, 
aa  ar  rr 

c.  The  mass  matrix  [M,,]  is  given  by: 
aa 


^00 

^01 

"ho 

= 

^01 

^02 

-hi 

(139) 

_-ho 

-'ll 

ho 

d.  The  other  matrices,  [M,^]  and 

a 1 r 1 

are  less  simple 

. The  algebraic  expressions  for 

the  elements  of  these  matrices  are  given  in  Tables  la  and  lb  below. 


Table  la.  Elements  of  the  3 by  6 Matrix  [M  ]. 

c r 


Notes: 

is  contracted  to  where  is  computed 

^ J 

in  Equation  22. 

M 

ar.  . is  contracted  to  M..  , where  M..  represents  an 

1 J 1 l\  1 

in  Equation  138. 

element  of  [M]  given 

•^14  = 

ho 

^15  = 

hi 

'he  = 

h2 

''u  = 

ho  ^ '^uho  ^ '^24hi 

IT 

1 

1 

1 

M 

aa 

1 

1 

ar 

1 

1 

1 

M ^ 

ar 

1 

1 

rr 

1 

(138) 
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Table  la  (con'd).  Elements  of  the  3 by  6 Matrix  [M  ]. 

dr 


Mi8  = 1^2  + ^islio  ^25^01 


*^19  ■ ^03  ^leho  *^26^01 


^24  = I2I 


*^25  ■ ^12 


*^26  " ^03 


M27  = 13^  + H-i^I^^  + H24IQ2 


'^28  " ^3  ^ ^15^11  * *^24^02 


^29  ■ ^04  ^ ^lehl  *^26 ^^02 


'^34  " ‘^30 


^^35  ' "^21 


M36  = -hz 


'^37  ° ‘^40  ■ *^14^20  ■ '^24^11 


”^38  ■ "^22  ■ ^15^20  ■ ^25^1 


'''39  " ‘^13  ■ ^16^20  ■ ^26^11 


4.87-104C  (12-1-69) 


MODULE  FUNCTIONAL  DESCRIPTIONS 


Table  lb.  Elements  of  the  6 by  6 Matrix  [M^„]. 

j 1- 


Notes:  is  contracted  to  is  contracted  to  where  represents 


■Y'lij  : 

an  element  of  [M]  given  in  Equation  138;  M.  . = M... 

1 J J 1 


M44  - 1 40 


^’45  ^31 


M40  = I 22 


'47 


^50  ^14^30  ^24^21 


‘48 


^32  '^15^30  '^ZS'^EI 


'49 


^23  ^16^30  '^26^21 


*^55  ■ ^22 


■^se  ■ ^3 


'57 


I4I  + + ^24^2 


'58 


^23  ^15^21  ^25^2 


'59 


^4  ^16^21  ^ *^26^2 


'66  ■ ‘04 


'67 


^32  ^14^12  ■*■  *^24^03 


‘68 


^4  ^15^2  ^25^03 


'69 


^05  ^16^2  ^26^03 


'■^7  ' ^60  ^^14^40  ^*^24^31  ^'^14^^^20  ^^14^24^11  ■*■  ^'^24^^^02 


4.87-104d  (12-1-69) 


MODULE  FUNCTIONAL  DESCRIPTIONS 


Table  lb  (con'd).  Elements  of  the  6 by  6 Matrix 


^78  " ^42  ^ ^15^40  ^ ^25^1  ^14^22  * ^14^15^20  ^14^25^1  ^ *^24^13 


+ ^*24^1 5^1  ^24'^25^02 


^79  " ^33  ^16^40  ^26^31  ^14^3  ^14^16’'20  ^ ^14^26^11  * *^24^04 


^24^16^11  ^ ^24^26^02 


*^88  ""  ^24  ^^is'^22  ^ ^'■•25^13  ■*■  ^^15^  ^20  ^^15^25^1  ^'^25^  ^02 


'''89  " ^15  "l6^22  '^26^13  '^15^13  "is'^16^20  '^15‘^26^11  ^ '^25^04 


'^25'^16hl  ^ "2S'^26^02 


^99  ^06  ^ ^^16^3  ^'^26''04  ^'^16^^^20  ^"l6"26hl  ^"26^^^02 
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2.  The  mass  matrix  in  element  coordinates  is  calculated  from  the  following  equation: 

mass 


H 


-1 


T ^ 


T • 

M‘  • M 
ar  I rr 
L I 


where  [I]  is  a 3 x 3 identity  matrix,  [H]"^  is  calculated  as  in  Equation  25,  [B] 
calculated  as  in  Equations  27  and  28. 


-[I'^B 


j-1 


(140) 


The  calculations  are  broken  down  into  the  following  steps  where: 


"aa 

I 

1 

1 

f'ab 

1 

1 

L. 

Mac 

l^^mass^  = 

''^ba 

! 

1 

1 

'^bb 

1 

1 

1 

Mbc 

"ca 

1 

1 

1 

^b 

1 

1 

1 

Mcc 

and  i = a,  b,  c and  j = a,  b,  c are  3 by  3 matrices. 

* J 

a)  Compute: 


[M]  = [M^^]  [«-■'] 


(142) 


b)  Partition: 


c)  Compute: 


[M]=^ 


M 


M 


bb 

1 

1 

Mbc 

cb 

1 

1 

Mcc 

(143) 


(144) 


d)  Partition: 

>^^ai^  i ^ac^ 
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e)  Calculate: 

* (’^6) 

tMaa^  = tMaa^  ‘ - [Bc3^[Mac]^  (148) 

- [Bj,]  - [M^^]  [B^3 

t^ba^  = , (149) 

[Mca]  = . (150) 


4.87.5.12  Mass  Matrix  Calculations  for  the  TRPLT  Element  (Subroutine  MTRPLT  of  Module  5MA2) 

1.  The  general  calculations  for  the  mass  matrix  of  the  triangular  plate  element,  TRPLT,  are 
the  same  as  those  for  the  stiffness  matrix  calculations  (See  Equations  46  through  71), 

2.  For  each  subtriangle  the  output  from  the  basic  bending  triangle  subroutine  are  the  nine 
3x3  matrices  given  in  Equation  141; 


"aa 

1 

1 

1 

. 1 

"ab 

1 

1 

1 

1 

"ac 

"ba 

1 

1 

1 

. 1 
1 

1 

1 

1 

1 

1 

1 

1 

1 - 
1 

"be 

"ca 

1 

I 

1 

"cb 

1 

1 

1 

"cc 



1 

1 



They  relate  forces  and  accelerations  in  the  subtriangle  coordinate  system  and  must  be  trans- 
formed to  the  overall  element  coordinate  system  (i.e.,  the  same  system  as  subtriangle  I). 

The  matrix  partitions  in  the  subtriangles  are  added  to  the  correct  matrix  partition  for 

the  whole  triangle.  For  example,  for  subtriangle  number  II,  [M,,]  is  transformed  and  added 

aa 

to  [M22]>  transformed  and  added  to  [M03],  is  transformed  and  added  to  [M2^], 

[Hj^a^  transformed  and  added  to  [M32]»  etc. 
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Since  the  mass  matrices  for  each  pivot  grid  point  are  calculated  separately,  not  all  of 
these  partitions  are  used.  For  each  pivot  grid  point,  i,  the  matrices  which  are  used  will  be: 

[M^--|],  i = point  1,  2 or  3 of  composite  triangle 


and 

[M-j^],  [M2/j^]» 

3.  The  number  4 point  in  the  middle  is  a dummy  point  and  is  removed  from  the  problem  in  the 
same  manner  as  in  the  computation  of  the  stiffness  matrix  (see  Equations  72  through  86). 

The  mass  matrix  partitions  of  the  whole  plate  are: 

[M^j]  = [M^j]  - ([G4]‘^[Gi])^[M./  - [M.4][G4]-^[^^  (151) 

• ([s,r'[s])T  w„]  [G^r' ’;i:2:3  • 

Notice  that  if  i and  j were  interchanged  the  matrix  would  be  transposed;  this  indicates 
that  the  whole  mass  matrix  is  symmetric. 

4.  Using  the  locations  of  the  three  grid  points  in  basic  coordinates,  calculate  the  3x3 
transforiration  matrices  [T.],j  = l,2,  3.  Form  the  6x6  matrices: 

J 


CCj]  = 

5.  The  3x3  mass  matrix  partitions  are  expanded  to  6x6  size  and  transformed  to  global 
coordinates  using  the  logic: 

M3  = . (153) 

where  m is  the  nonstructural  mass,  and  X2,  are  the  x- coordinate  and  y- coordinate  of  points 
2 and  3 respectively. 
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for  i = j = 1,  2 or  3;  and 
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for  i j. 


The  mass  matrix  partitions  in  global  coordinates  are: 


[M?j]  = [C.f[E][M®j][Ef[C.] 


(154) 


(155) 


(156) 


where 


(157) 
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is  the  global-to-basic  transformation  matrix, 


and 


[E] 


! {j} 


I 0 


L- 

0 


0 

{i} 


0 j 0 
{j}  ! {k} 


is  the  6x6  element-to-basic  transformation  matrix. 


(158) 


4.87.5.13  Mass  Matrix  Calculations  for  the  QDPLT  Element  (Subroutine  MQDPLT  of  Module  SMA2). 

1.  The  general  calculations  for  the  mass  matrix  of  the  quadrilateral  plate  element,  QDPLT, 
are  the  same  as  those  for  the  stiffness  matrix  calculations  (see  Equations  101  through  123). 

2.  For  each  subtriangle,  the  output  from  the  basic  bending  triangle  subroutine  are  the 
nine  3 X 3 matrices: 


Maa 

1 

1 

1 

1 

1 

1 

1 

1 ''ac 
1 

r 

"ba 

1 

1 

1 

1 M 

1 ^^bc 
1 

• 

^ca 

1 

1 

1 

1 

f'cb 

1 

1 M 

1 cc 
1 

These  are  transformed  to  the  quadrilateral  system  by  the  following  equation: 

[M. .]  = 1 [T]T  [M.  .]  [T]  . (159) 

where  [T]  is  given  in  Equation  121. 

These  matrices  are  added  to  their  corresponding  positions  in  the  quadrilateral  matrix 

partitions  [M?.],  in  the  same  manner  as  that  for  the  stiffness  matrix  partitions  of  the 
J 

quadrilateral  (See  step  3 of  Section  4.87.5.8). 

3.  For  each  pivot  point  i,  the  following  3x3  partitions  are  formed; 

for  j = 1.  2,  3,  4 . 

4.  The  mass  at  each  point  in  the  plane  of  the  element  is  due  to  the  mass  of  the  attached 
triangles.  The  masses  of  the  triangles  are: 
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y?  • ^ II*  III  a""*  IV  • 

(160) 

where  m is  the  nonstructural  mass,  and  and  y®  are  the  x-coordinate 

and  y-coordinate  of 

points  b and  c respectively  of  subtriangle  3. 

The  masses  at  the  points  are: 

m^  = ^ [m^  + m^^  + m^^]  , 

(161) 

m2  = -j  [m^  + m^^  + m^^^]  , 

(162) 

m3  = i [mil  , ^III  , ,IV^  ^ 

(163) 

1H4  = ] [n>^  + + m^'^]  . (164) 


5.  The  3x3  mass  matrix  partitions  are  expanded  to  6 x 6 matrices  and  the  in-plane  mass 
effects  are  added  using  the  logic: 


m 


i 

z 


m^.h 


(165) 


I 


i 

z 


m.h^ 

~T~ 


(166) 
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for  i = j = 1 or  3;  and 
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(167) 


(168) 


for  i = j = 2 or  4;  and 
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(169) 


for  i f 

6.  Using  the  geometry  data,  the  3x3  global-to-basic  transformations  [T^]  are  formed  for 
j = 1,  2,  3,  4.  These  are  expanded  to  6 x 6 matrices: 


7.  The  6x6  element-to-basic  transformation  matrix  is; 


(170) 


{i} 

1 {j} 

1 

I {k} 
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1 

I ^ 
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1 1 “ 

1 0 J 0 

1 1 

0 

1 0 
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! 0 
1 

1 

1 

1 

1 

1 

8. 


The  6x6  matrices  are  transformed  to  global  coordinates 


using  the  equation: 


[Mfj]  = Lc.f  [E]  [M^.]  [E]^  [Cj]  . 


(171) 


(172) 
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4.87,5.14  Thermal  Load  Equations  for  the  Bending  Elements  (Subroutines  TRBSC.TRPLT,  and  ODPLT  of 
Module  SSGl). 

1.  The  phase  I SDR2  routines  for  all  bending  elements  generate  for  connected  points  g.| , g2> 
g^,  (and  g^)  the  5x6  matrices  [S^],  [S2],  [S^]  (and  [S^]).  These  matrices  are  generated  in 
the  SSGl  module  with  a minor  change  in  the  basic  triangle  routine. 

2.  The  matrix  [K^]  is  described  on  page  4.87-85.  In  the  SDR2  routine  the  values  x and  y 
depend  on  which  element  is  actually  being  used.  For  SSGl  module,  calculate  the  matrix: 


[kJ]  = A[K3(x.y)]  . 


the  definition  of  [K^]  is: 


[Ks] 


(173) 


(174) 


where  A is  the  area  of  the  basic  triangle  and  (x,y)  is  the  center  location  of  the  basic 
triangle.  The  lower  partition  will  not  be  used. 


3.  For  each  type  of  element  the  vector,  {y},  is  generated  where: 


where  T is  given  on  a TEMPPl  data  card  or  calculated  from  a TEMPP3  card,  , a^, 
material  thermal  coefficient  vector  components,  [D]  is  the  3 by  3 material  matrix,  and 
are  the  thermal  moments  given  on  a TEMPP2  card. 
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4.  The  6x1  thermal  load  vectors  in  basic  coordinates  are: 

{Pj}  = N[Sjf  {Xg>  . j = 1.  2.  3 (and  4)  (176) 


where  N = 1 : TRBSC 

N = 3:  TRPLT,  TRIAl , TRIA2 

N = 2:  QDPLT,  QUADl , OUAD2 

The  [S.]^  matrix  is  calculated  from  the  [K  ] matrices  of  the  various  basic  triangles 
j s 

forming  the  element.  These  [K^]  matrices  are  transformed  and  combined  to  produce  relations 
[S.]  between  the  average  element  moments  and  the  displacements  of  the  connected  grid  points, 

J 

j. 
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a)  Definition  of  plane 


j 


b)  Subtriangles 


Figure  6.  Geometry  of  the  quadrilateral  plate  element,  QDPLT. 
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4.87.6  The  TRIA1 , TRIA2,  QUAD1  and  QUAD2  Elements 

These  elements  have  the  properties  of  both  membranes  and  bending  plates.  The  TRIAl 
and  QUADl  elements  are  triangles  and  quadrilaterals  which  may  use  separate  thicknesses 
and  materials  for  membrane,  bending  and  transverse  shear  action.  The  TRIA2  and  DUAD2 
elements  are  triangles  and  quadrilateral s which  use  one  thickness  and  one  material  to 
simulate  a homogeneous  plate  with  consistent  membrane,  bending  and  transverse  shear 
properties. 

If  these  elements  use  anisotropic  materials  (defined  on  a MAT2  bulk  data  card),  the 
material  is  oriented  with  respect  to  the  element  coordinate  system.  The  definition  of  the 
coordinate  system  is  as  follows:  the  vector  from  the  first  point  to  the  second  point  defines 

the  base  or  x axis.  The  z axis  is  normal  to  the  average  plane  of  the  elements,  and  the  third 
and  fourth  points  have  positive  y values. 

Mass  matrices,  thermal  loads,  and  differential  stiffness  matrices  for  these  elements 
use  only  the  membrane  properties. 

4.87.6.1  Input  Data  for  the  TRIAl,  TRIA2,  QUADl  and  QUAD2  Elements 

1.  The  ECPT/EST  entries  for  the  TRIAl  or  QUADl  elements  are: 


Symbol 


Description 


SIL.,  i = 1,2,3 
or  i = 1 ,2,3,4 


Scalar  indices  of  the  connected  grid  points. 


i = 1 ,2,3  or 


i = 1,2, 3, 4 


Referenced  local  coordinate  system  and  location 
in  basic  coordinates  of  connected  grid  points. 


0 


Material  orientation  angle. 


MAT  ID. 


m 


Material  identification  number  for  membrane 
properties. 


t 


'm 


Membrane  thickness. 


MAT  ID, 


'b 


Material  identification  number  for  bending 
properties. 
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Symbol 


Description 


2. 


I 

MAT 

y 

7-1. 

ECPT 


Bending  inertia 

ID^  Material  identification  number  for  transverse 

shear  properties. 

Transverse  shear  thickness 

Nonstructural  mass  per  area 

Outer  fiber  distances  for  stress  calculations. 

Temperature  for  material  properties 

Entries  for  the  TRIA2  or  QUAD2  Elements. 


Symbol 


Description 


SIL.  i = 1,2,3  or 
i = 1,2, 3, 4 


Scalar  indices  of  connected  grid  points. 


0 


1 ,2,3,  or 
1,2, 3,4 


Referenced  local  coordinate  system  and  location 
vector  in  basic  coordinates  of  connected 
grid  points. 


Material  orientation  angle. 


MAT  ID 


Material  identification  number 


t 


m 


Element  thickness 


y 


Nonstructural  mass  per  area. 


t 


y 


Temperature  for  material  properties 


4.87.6.2  Stiffness  Matrix  Calculations  (Subroutine  KTRIOD  of  Module  SMAl). 


The  TRIAl  or  QUADl  element  ECPT  data  are  rearranged  to  correspond  to  the  (TRMEM  or  QDMEM) 
membrane  ECPT  form,  and  the  routine  of  the  TRMEM  or  QDMEM  element  is  used.  The  ECPT  data  are 
then  rearranged  to  correspond  to  the  ECPT  data  of  a TRPLT  or  QDPLT  element  and  the  respective 
plate  routine  is  used.  Each  routine  is  entirely  independent. 
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The  TRIA2  and  QUAD2  elements  are  treated  in  the  same  manner  except  that  the  arrangement  of 
the  ECPT  data  is  different.  The  type  “2“  element  uses  the  single  material  for  all  three  material 
properties  of  the  type  “1“  element.  The  membrane  and  transverse  shear  thickness  equal  the  single 
thickness  of  the  type  "2"  element.  The  bending  inertia,  I^,  for  the  plate  property  is: 

h ° h 

4.87.6.3  Lumped  Mass  Matrix  Generation  (Subroutine  MASSTQ  of  Module  SMA2) 

The  bending  properties  are  disregarded  for  the  lumped  mass  matrix  calculations,  and  the 
element  mass  matrices  are  computed  exactly  as  the  ones  for  the  TRMEM  and  QDMEM  elements. 


4.87.6.4  Thermal  Load  Calculations  (Subroutine  of  Module  SSGl ) 

The  TRPLT  and  QDPLT  element  routines  are  used  to  generate  loads  due  to  thermal  gradients  or 
moments.  The  TRMEM  and  QDMEM  routines  are  used  to  calculate  in-plane  loads  due  to  uniform  thermal 
expansion. 

4.87.6.5  Element  Stress  and  Force  Calculations  (Subroutines  STRQDl  and  STRQD2  of  Module  SDR2) 


As  with  the  stiffness  matrix  calculations,  the  data  are  rearranged  and  the  stresses  for  both 
the  membrane  and  plate  deformations  are  calculated.  The  element  forces  are  calculated  for  the 
plate  only. 

1.  For  the  TRIA2  and  QUAD2  elements  the  outer  fiber  distances  and  are: 


(3) 


The  membrane  and  plate  stresses  are  added  together  as  follows  for  Z^: 


^xl 


‘^xl 


(4) 


^xyl 


composite 


xy 


membrane 


bending 
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and  for  1^' 


I-X2 

^ ) 

1^2  j 

ry2 
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) = < 

"y  { 

► + < 

fy2 

\ °xy2 

1 composite 

0 

xy 

1 membrane  * 

1 °xy2  ) 

(5) 


2.  The  principal  stresses  and  their  orientation  are  calculated  from  the  above  results,  as 
in  Equations  28,  29  and  30  of  section  4.87.4.6. 


4.87.6.6  Coupled  Mass  Matrix  Calculations  (Subroutine  MTRIQD  of  Module  SMA2) 


In  the  lumped  mass  case  these  elements  are  processed  using  the  membrane  mass  calculation 
routines  (subroutine  MASSTQ  of  module  SMA2).  When  coupled  mass  is  requested,  the  plate  mass 
calculations  will  be  used  instead.  The  ECPT  data  are  rearranged  to  the  appropriate  TRPLT  or 
QDPLT  format,  and  the  respective  plate  routine  is  used.  The  mass  per  area  is  now  calcuated 
using  the  material  mass  density  p and  the  thickness  t^^  for  the  membrane  definition  of  the 
element  and  added  to  the  nonstructural  mass: 

m = y + pt^  , (6) 

and  m is  now  used  instead  of  y for  the  plate  calculations. 
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4.87.6.7  Piecewise  Linear  Analysis  Calculations  (Subroutines  PSTRIl,  PSTRI2,  PSQADl , and 
PSQAD2  of  Module  PLA3  and  PKTRIl  , PKTRI2,  PKQADl  and  PKQAD2  of  Module  PLA4) . 

The  additional  ECPTNL  and  ESTNL  entries  are: 


Cq  - The  previously  computed  strain  value  once  removed. 
★ 

e - The  previously  computed  strain  value, 

* 

E - The  previously  computed  modulus  of  elasticity. 


* 


previously  computed  membrane  stresses. 


xy 

★ 

X 

* 


previously  computed  element  forces  (ESTNL  only). 


All  of  the  above  values  are  initially  zero  with  the  exception  of  E , which  is  initially  the 
original  modulus  of  elasticity  present  on  a MATl  card. 

In  module  PLA3,  the  incremental  element  stress  matrix  is  calculated  by  first  rearranging 
the  ESTNL  data  to  correspond  to  the  ESTNL  data  for  a TRMEM  or  QDMEM,  and  then  the  membrane 
stresses  are  calculated  in  the  same  manner  as  Equations  103  through  105  of  section  87. 4. 14. 
Then  the  ESTNL  data  are  rearranged  to  correspond  to  the  EST  data  for  a TRPLT  (or  QDPLT)  and 
the  incrementcl  bending  forces  for  the  TRPLT  (or  QDPLT)  element  are  calculated  in  the 
same  manner  as  in  Equation  97  of  section  4.87.5.7.  However,  if  the  bending  material  properties 
are  the  same  as  the  membrane  material  properties,  then  the  3 by  3 bending  material  properties 
matrix  ([Gj^]  in  Equation  11  of  section  4.87.5.2)  is  replaced  by  the  matrix  given  in  Equation  97 
of  section  4.87.4.14.  In  addition  the  displacement  vector  {u^.}  in  Equation  44  of  section 
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4.87,5.4  (or  Equation  97  of  section  4.87.5.7)  are  replaced  by  an  incremental  displacement  vector 
{Au.}. 

TKe  results  are  incremental  stresses  and  forces  for  the  meijibrane  and  bending  properties 
defined  as  follows 


(7) 


+ AOy  ) Membrane  stresses  , 


(8) 


a 1 = a + Aa 

xyl  xy  xy 


*xl 


'xl 


'xyl 


'xl 


yi 


"x  * ‘"x 


M + AM 
xy  xy 


V*  + AV 

X X 


v;  ^ AV, 


Bending  forces 


(9) 

(10) 

(11) 

(12) 

(13) 

(14) 


The  total  bending  stresses  are  calculated  using  the  total  bending  forces  given  in  Equations  10 
through  14  in  conjunction  with  Equations  98  through  100  of  section  4.87.5.7. 

The  membrane  and  bending  stresses  are  added  together  as  follows  for  Z^: 


■'xl 

"yi 


"xl 

"yi 


"xl 


+ < a 


yi 


(15) 


"xyl  7 composite  ''"xyl  ' membrane  v xyl  ' bending 
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and  for  12'- 


■'xZ 
^yZ 

. °xy2  / composite 


xyl  / membrane 


^x2  J 
^y2  / 

^xy2  / bending 


(16) 


The  principal  stresses  and  their  orientation  for  output  are  calculated  from  the  above  results, 
as  in  Equations  28  through  30  of  section  4.87.4.6. 

In  module  PLA4,  the  bending  properties  are  disregarded,  and  the  ECPTNL  data  are  rearranged  to 
correspond  tc  the  ECPT  data  for  the  TRMEM  or  QDMEM,  and  the  stresses  are  calculated  exactly  as  the 
ones  for  the  TRMEM  or  QDMEM  elements  (see  section  4.87.4.14). 

In  modules  PLA3  and  PLA4,  after  the  above  stress  calculations  have  been  completed,  the  next 
elastic  coefficients  are  calculated  in  the  same  manner  as  Equations  106  through  112  of  section 
4.87.4.14. 

The  new  ESTNL  and  ECPTNL  entries  are: 


= e 


e = Cl 


E = E^ 


a.,  = a 


xl 


°yi 


"xy  ■ °xy1 


M..  = M, 


xl 


M„  = M, 


VI 


M = M , 
xy  xyl 


(17) 

(18) 

(19) 

(20) 
(21) 
(22) 

(23) 

(24) 

(25) 
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V 


★ 

xl 


= V 


xl 


(26) 


* 


yi 


(27) 


In  module  PLA4,  the  ECPTNL  data  are  rearranged,  and  the  element  stiffness  matrices  are 
calculated  in  the  same  manner  as  for  the  TRMEM  or  QDMEM  elements  in  section  4.87.4.14. 


4.87.6.8  Differential  Stiffness  Matrix  Calculations  for  the  TRIAl  and  TRIA2  Elements 
(Subroutine  DTRIA  of  Module  DSMGl ) 

This  subroutine  uses  the  displacement  vectors  and  thermal  load  temperature  from  a static 
solution  to  produce  a differential  stiffness  matrix.  The  DTRMEM  subroutine  is  used  to  calculate 
in  plane-stresses  and  in-plane  differential  stiffness.  The  triangle  is  subdivided  into  three 
subtriangles  and  the  DTRBSC  routine  is  used  to  calculate  out-of-plane  differential  stiffness  for 
each  of  the  three  subtriangles.  The  matrices  are  combined  and  the  center  point  is  removed  in  the 
same  manner  as  the  KTRPLT  subroutine  (section  4.87.5.5).  The  basic  steps  are  as  follows: 

1.  The  TRIA2  data  from  the  ECPT  is  converted  to  TRIAl  format  while  in  both  cases  the  data 
is  moved  to  a protected  location.  The  conversion  is: 


TRIAl  DATA 

TRIA2  DATA 

MATID^  = MAT  ID. 
m b 

= MATIDg  = MATID 

(28) 

(29) 

I = 

^ 12.0 

(30) 

2-  The  ECPT  data  are  rearranged  to  the  TRMEM  format  (the  same  as  the  TRIA2  format). 

3.  The  material  property  orientation  angles  are  established  and  subroutine  DTRMEM  is  called. 

This  routine  will  insert  the  in-plane  differential  stiffness  terms  in  the  KDGG  matrix  and 

will  return  the  stress  values  a , a , and  t . 

X y xy 

4.  The  element  coordinate  system  and  geometric  coefficients  are  calculated  as  follows 
where  the  three  location  vectors  are  {x(l)},  {x(2)},  and  {x(3)>. 


(V2>  = {x(2)>  - 

{x(l)} 

(31) 

{V3}  = {x(3)}  - 

{x(l)} 

(32) 
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^2  = 

|{V2}| 

(33) 

{V,} 

{i}  = 

4 

(34) 

^3  = 

|{i}  X {V^]\ 

(35) 

{i}  X {V^> 

{k}  = 

Y3 

(36) 

{j}  = 

{k>  X {i} 

(37) 

X4  = 

X2  + X3 

3 

(38) 

^4  = 

^3 

3 

(39) 

The  locations  of  the  four  points  in  this  coordinate  system  are  defined  by  the  matrix  [R] 
where  each  row  defines  one  point 


0 0 ~ 


[R]  = 


0 


X 


4 


(40) 


5.  For  use  in  transferring  points  in  the  element  to  points  in  the  subtriangle,  the  integer 
mapping  matrix  [M]  is  used. 


[M] 


Point  a Point  b Point  c 

1 2 4 ” 

2 3 4 

_ 3 1 4 _ 


(41) 


Each  row  of  the  matrix  corresponds  to  the  three  points  connected  to  each  subtriangle. 

6.  A major  loop  is  now  performed  with  one  cycle  for  each  of  the  three  subtriangles. 
Corresponding  to  points  a,  b,  and  c of  the  M matrix,  the  location  vectors  and 

{r^}  are  extracted  from  the  corresponding  rows  of  the  R matrix.  For  each  triangle  the 
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following  are  calculated: 


= V ("'bl  ■ "'al^^  • 


'b2  'a2' 


1 


*^1  a ^’'bl  ■ '"al^ 


*^2  " i ^*'b2  ■ '"a2^ 

The  transformation  between  subtri angle  coordinates  to  element  coordinates  is: 

1 0 

0 W 


(42) 

(43) 

(44) 


-W-, 


W 


[T]  =0  W,  W,  (45) 


The  material  orientation  data  are 

sin  (0^)  = sin  (e)  - cos  .(0)  ^ 

cos  (0^)  = cos  (0)  + sin  (0)  ^ 

7.  The  locations  of  the  three  points  of  each  subtriangle  are  transformed  to  geometric 
coefficients  x^,  where 


(46) 


^b  = ^l^'b!  - "al^  ^ ‘^2("b2  ■ " 


a2^ 


(47) 


■ "if'-cl 

- ^al)  ^ 

W2(r 

c2  ■ ’"a2^ 

(48) 

^c 

= -W2(>'cl 

-^al)^ 

h W^( 

'"c2  ■ ’"a2^ 

(49) 

"ansformed  to  the  subtriangle 

system  by  the  equations: 

■ "l5« 

* “z»y 

+ 

(50) 

■ 

* “?5y 

- 

2W1W2V 

(51) 

- -"iVx 

+ W^W^c 

(W?  - W2) 

(52) 
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9.  The  differential  stiffness  matrix  for  each  subtriangle  is  formed  in  subroutine  DTRBSC 
(Section  4.87.6.10).  The  input  to  this  routine  consists  of  the  ECPT  property  data;  the 
location  parameters  x.  , x , and  y ; and  the  in  plane  stresses  a , a,,  and  t . The  output 
from  this  routine  consists  of  the  following  matrices: 

r,,d  1 ( i = pivot  point 

^^i ( j = 1 , 2,  and/or  3 

[Kj4]  j = 1,  2,  and/or  3 

[H],  [S] 

10.  The  above  matrices  are  combined  and  transformed  in  exactly  the  same  manner  as  the 
triangular  plate  equations.  The  differential  stiffness  matrices  replace  the  elastic  stiff- 
ness matrices  in  the  equations.  See  section  4.87.5.5,  steps  7 through  10. 

4.87.6.9  Differential  Stiffness  Matrix  Calculation  for  the  QUADl  and  QUAD2  Elements  (Subroutine 
DQUAD  of  Module  DSMGl ) 

The  differential  stiffness  matrix  for  the  QUADl  and  QUAD2  elements  is  constructed  from  the 
matrices  produced  by  four  subtriangles.  The  method  used  to  subdivide  the  quadrilateral  is  shown 
in  Figure  6.  The  stress  is  calculated  for  each  triangle  using  the  DTRMEM  subroutine.  The  out-of- 
plane  differential  stiffness  for  each  triangle  is  calculated  using  the  DTRBSC  subroutine.  The 
element  geometry  and  the  manipulation  of  the  matrices  is  done  in  the  same  manner  as  the  elastic 
stiffness  equations  for  the  quadrilateral  plates. 

The  steps  followed  by  the  subroutine  are: 

1.  If  a QUAD2  element  is  used,  its  property  data  is  converted  to  the  QUADl  equivalent  and 
the  ECPT  is  expanded  to  the  QUADl  format.  The  property  conversion  is: 


QUADl  DATA 

QUAD2  DATA 

MATID  = MATID.  = MATID.  = 
m 6 5 

MATID 

(53) 

t = 
m s 

^m 

(54) 

t^ 

I = 

m 

12.0 

(55) 
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With  both  cases  the  data  is  stored  in  a protected  location. 

2.  The  element  coordinate  system  and  the  location  of  the  grid  points  are  calculated  as 
fol lows: 


{d^}  = {V3}  - {V^} 


{d,}  = {VJ  - {V,} 


(56) 


^2^  - 1-2J  I 

where  {V^},  {V^},  and  {V^}  are  the  location  vectors  of  the  connected  grid  points. 

{d^}  X {d^} 

" |{d^}  X {d2>| 


{a^}  = {V2}  - {V^} 


h = {a^}  • {k} 


{i}  = 


{a^}  - h{k} 
|{a-|}  - h{k}| 


(57) 

(58) 

(59) 

(60) 


{j} 

= {k}  X 

{i} 

(61) 

element  plane 

are  stored  in  the  [R]  matrix  where 

each  row 

of  a 

point. 

•^ii 

= R.|2  = 

R22  = 0.0 

(62) 

R21 

= X2  = 

{a^}-{i} 

(63) 

•^31 

= ^3  = 

{d^}-{i} 

(64) 

*^32 

= Y3  = 

{d.|}-{j} 

(65) 

R4I 

= ^4  = 

^2  ^ 

(66) 

R42 

= V,  = 

{d2}’{j} 

(67) 

3.  At  this  stage  the  four  triangles  are  processed  in  a loop.  The  matrix  partition  for  the 
element  is  set  to  zero  and  the  results  for  each  triangle  are  added  in.  The  following  steps 
4-8  describe  this  loop. 
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The  three  points  for  each  triangle  are  selected  using  the  mapping  matrix  M.  The  data 
corresponding  to  these  points  are  put  into  the  E'CPl  format  for  a TRMEM  element. 

5,  The  geometry  of  the  triangle  is  calculated  using  the  three  rows  of  the  R matrix 
corresponding  to  the  three  points  of  the  triangle  a,  b,  c.  These  rows  correspond  to  vectors 
{V^},  and  {V^}. 


{V} 

= - {V,} 

(68) 

= {V^}  - {V^} 

(69) 

’‘b 

= Kv}| 

(70) 

W2) 

_ {V} 

(71) 

(72) 

- -Vvl  " ^1^2 

(73) 

The  transformation  matrix  between  element  and  triangle  coordinates  is: 


[T] 


1 0 0 
0 
0 


(74) 


6.  The  orientation  angle  6^^  for  the  subtriangle  is  computed  in  case  the  material  is 
anisotropic. 


sin  0^  = W-|  sin  0 - cos  0 (75) 

cos  0^  = cos  0 + sin  0 (76) 

7.  The  triangular  membrane  subroutine  DTRMEM  at  this  point  will  calculate  and  insert  the 

in-plane  differential  stiffness  terms  and  will  produce  the  stress  values  a , a , and  t in 

A y xy 

the  triangle  coordinates.  The  basic  triangle  subroutine  will  use  the  in-plane  stresses  and 
the  basic  locations  x^,  and  y^  to  produce  the  out  of  plane  differential  stiffness  terms. 
The  output  of  the  differential  stiffness  subroutine,  DTRBSC,  is  the  3 by  3 matrix 
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partitions  [K.  ],  [K..  ],  and  [K.  ],  where  i is  the  pivot  point.  These  are  transformed  to 
1 a ID  1C 

quadrilateral  coordinates  with  the  [T]  matrix. 

[K^j]  = [if  [Kij][T]  (77) 

8.  The  matrices  for  each  triangle  are  added  into  the  running  sum  for  the  quadrilateral  and 
steps  4 - 8 are  repeated. 

9.  The  differential  stiffness  matrix  partitions  are  transformed  to  global  coordinates  and 
inserted  into  the  overall  differential  stiffness  matrix  in  a manner  identical  to  steps  7 and 
8 of  section  4.87.5.8. 

4.87.6.10  Differential  Stiffness  Matrix  Calculations  for  the  Basic  Bending  Triangle  (Subroutine 
DTRBSC  of  Module  DSMGl) 

Unlike  the  case  of  elastic  stiffness  matrix  generation,  the  basic  triangle  (TRBSC)  may  not  be 
used  by  itself  to  produce  differential  stiffness  matrix  terms.  This  subroutine,  however,  is  used 
for  the  calculation  of  differential  stiffness  for  the  TRIAl,  TRIA2,  QUADl , and  QUAD2  elements. 

Its  purpose  is  analogous  to  the  way  the  KTRBSC  subroutine  is  used  in  the  calculation  of  elastic 
stiffness  matrices. 

The  necessary  inputs  to  this  subroutine  are  passed  to  it  via  the  labeled  common  blocks  DSIAET 

and  DSIADP.  The  input  data  used  are  x.  , x , y (the  basic  geometry),  a , a , t (the  in-plane 

D c c X y xy 

stresses),  and  the  element  property  data. 

The  basic  algorithm  used  by  the  routine  is  as  follows: 

1.  The  presence  of  transverse  shear  is  tested  and  the  subroutine  selects  the  method  of 
calculating  the  element  coordinate-to-generalized  coordinate  transformation  matrices  [H^]  and 
[H,]. 

2.  If  no  transverse  shear  flexibility  exists,  the  matrices  [Hj^]  and  [H^]  are  calculated  by 
the  following  equations: 
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r = 


s = 


y. 


t = — 


(78) 


[Hk] 


u = 


3r‘- 


2~1 

Vc 


r^st 


-2r 


-6ru(Xb-Xc) 

2rtu(3Xb-2x^) 


0 

r 

-rt 

0 

-rs 

rst 


r 

0 

-rt2 

2 

-r 


u(3x^-2Xb) 

2tu(Xb-x^) 


(6x3) 


(79) 


[H,]  = 


0 
0 

3s^ 
0 
0 

L -2s^ 


0 

0 

St 

0 

0 


(6x3) 


(80) 


3.  If  both  shear  material  and  shear  thickness  exist,  then  the  [H^q]  9'^'^  [H]”^  matrices  are 
generated  as  with  the  existing  equations  for  the  TRBSC  element.  See  pages  4.87-82,  83.  The 
6x6  [H]'^  matrix,  is  partitioned  as  follows: 


[H]-'’  =>  [H.  ; HJ 


(81) 


and  is  used  instead  of  Equations  (79)  and  (80). 
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4.  In  order  to  form  the  differential  stiffness  matrix  [K^^],  referred  to  generalized 
coordinates,  the  following  integral  must  be  evaluated  over  the  triangular  area. 

r 


^nm  = h 

nm 


xT  dA 


The  results  are: 


Mo 

= hA  = 

^^b^e 

2 

Mo 

X 

<h 

II 

b ^ 

M) 

hAy 

hAy 

Ml 

L 

3 

Ml 

c 

• IT 

("b 

+ 2x^) 

hAy^ 

hAy^ 

M2 

6 

M2 

■ 30 

(^b 

+ 3x^) 

hAy^ 

hAy^ 

M3 

10 

M3 

■ 60 

^ Ax^) 

Ma 

hAyJ 

15 

Mo 

= M (/ 
6 

^ ^ 2x 

+ X.  x^  + x^) 

be  c 

^21 


hAy  ^ ^ 

(x^  + 2x.  x^  + 3x^) 
30  b be  c' 


22 


hAy  . . 

("b  ^ 3"b"c  ^ 


'30 


‘31 


[32  23 

-grr  2xfx  + 3x.  x^  + Ax’: 

60  * b be  be  e 


I = M ( + X^X^  + X x^  + x^ 

Mo  15  I \ ^h\  W '^b’^e  M 
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5.  The  elements  of  the  (8x8)  differential  stiffness  matrix  are  listed  below.  The 
matrix  is  symmetric  so  only  the  upper  triangle  terms  are  given.  The  superscript  is 
omitted  for  convenience. 


'^11 

°x  ^00 

Ki2 

= 

■'^oo 

^13 

= 

ho 

Ki4 

= 

'^X  hi  •'ho 

^15 

= 

2-^hl 

'^16 

= 

^x  ho 

^17 

= 

''x  h2 

^18 

= 

3tIo2 

K22 

= 

ho 

^23 

= 

^^ho 

•<24 

= 

■^hl  ®y  ho 

•^25 

= 

2«^y  hi 

^26 

= 

3tI2o 

K27 

= 

^h2  ^ ^°yh 

00 

= 

^y  h2 

•^33 

= 

"^^x  ho 

^34 

= 

2K  hi  ^ 

Ss 

:= 

4Thi 

•^36 

= 

®°x  ho 

(84) 
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'^37 

— 

^12 

. 2x121 ) 

00 

CO 

= 

6tIi2 

K44 

= 

■^x  ^02  ^ 

2tIii  + Oy  I20 

'^45 

= 

2(tIo2  + 

'^46 

= 

3(<^x  ^21 

^ ^^3q) 

K47 

= 

<^x  ^03  + 

3x1^2  + 20y  I21 

00 

= 

Oy  Ii2) 

^55 

= 

% ^02 

^56 

= 

6XI21 

^57 

= 

2(^Io3  ^ 

2c^y  Iiz) 

•^58 

= 

^03 

^66 

= 

^<^x  ^40 

^67 

= 

^^°x  ^22 

.2x13^) 

00 

= 

9x122 

^77 

= 

""x  ^04  ^ 

4xIi3  + 40y  I22 

•^78 

= 

3(tIo4  + 

^ I13) 

•^88 

= 

% ^04 

6.  In  order  to  transform  the  matrix  to  the  displacements  of  points  at  the  corners  of  the 
triangle,  the  following  matrices  are  generated. 

[Hg]  = - [H^][s^]  (6x3)  (85) 
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H 

-0 

0 -1“ 

q a 

0 

1 0 

+ 

0 

(8x3) 


[C,]  = 

[Cc]  = 


(8x3) 


(8x3) 


(86) 


(87) 


(88) 


7.  The  output  matrix  partitions  depend  on  the  type  of  element  using  this  subroutine.  If 

cIp 

the  element  type  is  a QUADl  or  QUAD2  the  three  output  matrix  paritions  [K  ] are: 


[kJJ]  = [c.f  [k‘^''][Cj.]  (89) 

where  i is  the  pivot  point  and  j = a,  b,  and  c. 


If  the  element  type  is  a TRIAl  or  TRIA2  the  output  differential  stiffness  matrices  are 
calculated  using  equation  89  above.  They  are: 


t^ia^l 

h- 
1 — 1 

o 
1— 1 

II 

[K'*‘’][Cg] 

(90) 

1 — 1 
1 — 1 

= 

(91) 

if  i is  the  pivot  point  and  i = a or  i = b 

• 

In  addition,  for  the  TRIAl  and  TRIA2, 

elements 

the  following  matrices  are  output: 

■ K.i" 

[k‘*‘’][c^] 

(92) 

■ [Cbf 

[k'‘‘’][c^] 

(93) 

■ [C,l^ 

[k'*‘’][c^] 

(94) 

The  matrices  [H]"^  and  [S],  previously  calculated  are  also  output  for  the  TRIAl  and  TRIA2 
elements. 
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If  the  heat  transfer  system  parameter  equals  +1,  the  elements  are  treated  exactly  like  the 
membrane  elements  QDMEM  and  TRMEM.  The  bending  calculations  are  bypassed  and  subroutines  KQDMEM 
or  KTRMEM  are  used  for  calculation  of  the  conductivity  matrix  terms,  subroutine  MTRQD  is  used  for 
the  mass  calculations,  and  subroutines  SDHTFl , SDHTF2,  and  SDHTFF  are  used  for  stress  recovery. 
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4.87.7  The  ELASi,  MASSi  and  DAMPi  Elements 


The  scalar  elements  (ELASi,  MASSi  and  DAMPi,  i = 1,2, 3, 4)  are  connected  to  scalar 
components  of  grid  points  or  to  scalar  points.  The  ELASi  elements  contribute  only  to: 
a)  the  stiffness  matrix,  152,3,4;  and  b)  to  the  structural  damping  matrix, 

[5vgg],  for  i = 1,2,3.  The  MASSi  elements  contribute  only  to  the  mass  matrix,  [*^gg]>  the 
DAMPi  elements  contribute  only  to  the  viscous  damping  matrix,  t^gg]* 

The  scalar  elements  do  not  require  material  or  geometric  properties  in  their  calculations. 
Only  the  ELASi  elements  are  used  for  stress  or  force  calculations. 

4.87.7.1  Input  Data  for  the  ELASi,  MASSi  and  DAMPi  Elements 


The  ECPT/EST  entries  for  the  scalar  elements  are: 


Symbol 
SILp  SIL2 

C-j  , C2 


K 

9e 

S 

B 

m 


Description 

Scalar  indices  of  connected  grid  or 
scalar  points 

Component  numbers  corresponding  to 
SIL^  and  SIL2. 

Spring  constant 
Damping  factor 
Stress  coefficient 
Viscous  damping  coefficient 
Mass  coefficient 


Elements 

All 

Types  1 and  2 

All  ELASi  elements 

ELASI,  2 and  3 

All  DAMPi  elements 
All  MASSi  elements 


4,87.7.2  ELASi  Stiffness  Matrix  Generation  (Subroutine  KELAS  of  Module  SMAl ) 
1.  The  two  connected  scalar  indices  are  i^  and  i2  given  by: 


SIL^  + (c^  - 1),  if  Point  1 is  a grid  point 
SIL-j,  if  Point  1 is  a scalar  point 
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/ SIL2  + (c2  - 1),  if  Point  2 is  a grid  point 

'2  = j 

^ SIL2>  if  Point  2 is  a scalar  point 

2.  The  following  terms  are  added  to  the  [K^^]  matrix: 

gg 

+K  in  position  (i-j,  i^)  and  in  position  (i2>  i2)» 

-K  in  position  (i2,  i-|)  and  in  position  (i^ 


3.  If  point  2 is  not  defined,  add  +K  to  position  (i^,  i^). 

4.  The  damping  terms  are: 


. K 9^  . 

These  are  added  to  in  the  same  manner  as  the  stiffness  terms  were  added  to  t^gg]* 

—4.87.7.3  MASSi  Mass  Matrix  Generation  (Subroutine  MASSO  of  Module  SMA2) 

These  elements  are  treated  like  the  ELASi  elements  except  the  "m"  term  is  added  to  the 
four  positions  in  [Mgg]. 

4.87.7.4  DMAPi  Damping  Matrix  Generation  (Subroutine  MASSD  of  Module  SMA2) 

These  elements  are  treated  like  the  ELASi  elements  except  the  "B"  term  is  added  to  the 
four  positions  in  C^ggl* 

4.87.7.5  ELASi  Stress  and  Force  Recovery  (Subroutines  SELASl  and  SELAS2  of  Module  SDR2) 

The  element  force  is: 


F ~ K(u2"U-j), 

where  u^  and  U2  are  the  displacements  at  scalar  index  numbers  i-|  and 
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The  element  stress  is: 


a = SF. 
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4.87.8  Concentrated  Mass  L*er.dt.t3  C0NM1 , C0NM2 

Two  types  of  grid  point  mass  data  are  available.  C0NM1  defines  the  mass  matrix  directly 
at  the  point,  with  the  axes  defined  by  a given  local  coordinate  system.  C0NM2  defines  the 
same  matrix  for  a body  with  a mass  and  three  inertias  with  a center  of  gravity  offset  from 
the  grid  point. 

4.87.8.1  ECPT  Entries  for  the  C0NM1  Mass  Element 


Symbol 


Description 


Ng,  X,  Y,  Z 

"’ll  \ 

*^21  * *^22 

'"si  •'"32 ’'"33 

%1  *^42  **^43*^44  ( 

"’51  *"’52 ’"’53 ’"’54 ’"’55 

nigi  •'”62 ’’’'63 ’"’64 ’'”65 ’"’66  . 


Local  coordinate  system  number  in  which  the 

mass  matrix  is  defined. 

Local  coordinate  system  number  and  basic 
coordinates  of  the  point. 


Terms  of  mass  matrix  given  in  row  form  (out 
to  the  diagonal  term). 


4.87.8.2  Mass  Matrix  Calculations  for  the  C0NM1  Element  (Subroutine  MC0NMX  of  Module  SMA2) 


1.  Using  the  symnetrical  relationships,  fill  out  the  remainder  of  the  6x6  matrix, 
[m]: 


m . . = m . . 

ij 


(1) 


2.  Using  the  basic  coordinates  of  the  point  and  the  local  coordinate  system  definition, 
the  3x3  transformation  matrices  [T^]  and  [T^]  are  generated,  and  the  mass  matrix  in  global 
coordinates  is: 
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"^9  i 

3 

O 

1 

R;  ! 0 1 

m 1 

o 

1 

[M]  = 

0 1 T 

_ ‘ D! 

[m] 

"o'  i 
L « 

0 T T ' 
L ' cij 

(2) 


where  [T^]  is  the  transformation  from  global-to-basic  coordinates  at  the  point,  and 
[T^]  is  the  transformation  from  the  coordinates  defined  by  the  mass  local  system  to 
the  basic  coordinate  system. 

4.87.8.3  ECPT  Entries  for  the  C0NM2  Mass  Element 


Symbol 


Description 


Ng,  X,  Y,  Z 


x,y,z 


Local  coordinate  system  number  in  which  the 
mass  terms  are  defined. 

Local  coordinate  system  number  and  basic 
coordinates  of  the  point. 

Concentrated  mass 


Offset  of  center  of  gravity  in  mass  coordinate 
system 


Ml 


^21*  ^22 


Inertias  about  the  center  of  gravity  qiven  in 
row  order  out  to  the  diagonal  term 


^31’  ^32*  ^33 

4.87.8.4  Mass  Matrix  Calculations  for  the  C0NM2  Element  (Subroutine  MC0NMX  of  Module  SMA2) 
1.  The  transformation  from  the  offset  to  the  grid  point  is; 


[D]  = 


1 

1 0 
1 

z 

-y 

1 

1 

1 

0 

X 

1 ' y 
1 

-X 

0 

1 

1 1 

0 

1 

1 

1 

1 

{ 

1 

(3) 


4.87-114 


STRUCTURAL  ELEMENT  DESCRIPTIONS 


2.  The  mass  matrix  referenced  to  the  offset  point  is: 


[nioJ  = 


m 

m 

1 

1 

1 

m 1 

0 

-tT,;- 

‘^21 

■^31 

0 

r^2i 

1 

1^2 

■^32 

!-l31 

1 

CO 

CO 

(4) 


3.  The  mass  matrix  about  the  grid  point  along  the  g’ven  coordinates  is: 


[in] 

= [Df[m^][D].. 

(B) 

of  matrix  [m] 

are  calculated  directly  from  the  equations: 

"’ll  = 

II 

C\J 

E 

"’33  ^ "' 

* 

(6) 

■"is 

= ^l 

= 

= -m^2  = 

+zm  , 

(7) 

■"16 

= "'61 

" ■"'34 

" ■"'43  " 

-ym  , 

(8) 

">26 

■ "'62 

^ ■"'35 

° ■"'53 

xm  , 

(9) 

"'44  " 

1^1  + (y^  + z^)m 

f 

(10) 

'"55  = 

I22  + ( 

+ z^)m 

s 

(11) 

"’66  = 

^33  ^ 

p p __ 

X + y )m 

9 

(12) 

II 

in 

E 

"’54  = 

-l2^  - xym 

9 

(13) 
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*"46  ""eA  ”^31  ■ 


(14) 


^6  = "'65  = -^32  - • 


(15) 


4.  The  matrix  [m]  is  transformed  back  to  global  coordinates  using  Equation  2. 
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4.87.9  The  C0NEAX  Element 


4.87.9.1  Input  Data  for  the  C0NEAX  Element 


1.  The  ECPT/EST  entries  for  the  C0NEAX  element  are; 


Symbol 
SIL^,  SILj, 

n 

''a’ 

MAT  ID| 

I 

f-IAT  ID|^ 

MAT  ID. 


T-2 

0 . , 1 =1  to  14 


Description 


.th 


m 


Scalar  indices  of  the  n harmonic  of  the 
connected  rings 

Harmonic  index 

Radii  at  points  a and  b 

Projected  distances  along  the  axis 

Membrane  thickness 

Membrane  material  identification  number 
Bending  coefficient 

Bending  material  identification  number 
Shear  thickness 

Shear  material  identification  number 
Outer  fiber  distances  for  stress  calculations 
Angles  defining  points  around  element 
Temperature  for  material  properties 
Nonstructural  mass 


4.87.9.2  Stiffness  Matrix  Calculations  (Subroutine  KC0NE  of  Module  SMAl). 


1.  The  shell  orientation  is  given  by; 


■ - '-.i' ♦ • 


sim(;  = 


cosij;  = 


b a 


^b  ■ 


(1) 

(2) 

(3) 


4.87-117 


MODULE  FUNCTIONAL  DESCRIPTIONS 


2.  The  transformation  matrix  [E]  from  element  coordinates  to  ring  cylindrical 
coordinates  is: 


”0 

sin 

cos 

0 

0 

1 

0 

0 

0 

0 

0 

cos  iIj 

-sin  \p 

0 

0 

0 

0 

0 

0 

sin 

0 

0 

0 

1 

0 

0 

0 

0 

0 

cos  il; 

(4) 


3.  The  serial  steps  for  the  balance  of  the  stiffness  matrix  computations  unique  to  the 
axisymmetric  conical  shell  element  are  explicitly  described  in  the  NASTRAN  Theoretical 
Manual  section  5. 9. 5. 7 (Summary  of  Procedures), 


4.87.9.3  Mass  Matrix  Computation  (Subroutine  MC0NE  of  Module  SMA2) 


where 


[M-i]  = 


0 

0 

0 

0 

0 


0 

m 

0 

0 

0 

0 


0 

0 

m 

0 

0 

0 


0 

0 

0 

0 

0 

0 


0 

0 

0 

0 

0 

0 


0 

0 

0 

0 

0 

0 


a or  b 


r.  r 

^b  ^a 


(5) 


(6) 


4.87.9.4  Element  Load  Calculations  (Subroutine  C0NE  of  Module  SSGl ) . 

The  Fourier  coefficients  of  the  temperatures  are  stored  in  the  GPTT  data  block.  The  loads 
are  generated  by  the  elements,  which  reference  the  connected  rings  and  harmonics  indirectly  by 
the  grid  point  scalar  indices.  The  scalar  indices  are  used  with  the  SIL  (Scalar  Index  List)  data 
block  to  obtain  the  temperatures.  The  following  steps  are  used  to  generate  the  loads: 

1.  The  data  for  a logical  element  are  read  from  the  EST  data  block.  The  harmonic 
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number,  n,  is  extracted  from  the  element  ID,  Ng,  by  the  equation: 


Ng  = lOOON  + (n  + 1)  , 


(7) 


where  N is  the  total  number  of  harmonics  plus  one  in  the  problem. 

The  temperatures  for  this  particular  element  and  harmonic  (T^  and  T^)  are  extracted  from 
the  GPTT  data  block.  (No  default  nonzero  temperatures  are  allowed). 

2.  The  following  data  are  generated  in  the  same  manner  as  in  the  stiffness  matrix  routine, 
KC0NE: 

ra»  rb>  Za»  Zb  - Ring  locations 


sinij^,  cosij; 
[E] 

t 

tfm^ 


- Linear  distance 

- Inclination  functions 

- Element-to-global  transformation  matrix  (6x5) 

- Element  thickness 

- Material  matrix  (3x3) 


tts  = = a - Temperature  coefficient 

3.  The  geometry  coefficients,  are  calculated  as  in  the  stiffness  matrix  routine  by  the 
equation: 


r'-“  ds  . f / 


s"’rl-"dr  . 


(8) 


rb  - r 

where  r = a + bs,  a = r^,  b= ^ 


4.  The  loads  are  generated  in  generalized  coordinates,  with  the  equations: 


(9) 
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where 


(10) 

(11) 

tP4n>  = sitn(/(I^iA|^  + l2^B^)  + IqqC^  + I^qD^  , 

(12) 

{Pgri}  = cosi|;(Iq^A^  + ’ 

(13) 

{Pgr,}  = cosi|^(I-,iA|^  + I2-|B^)  , 

(14) 

(Pyn)  = cost/;(l2^A^  + l3^B^)  , 

(15) 

“ cosij;(l3^A^  + l4iB^)  , 

(16) 

{Pgn)  = 0 . 

(17) 

fPlO,n>  = 0 ’ 

(18) 

(19) 

»n  ■ 1 (T^OIEi2“s*E22“»>- 

(20) 

- «n<»sf;)  **Ei2<VS>  • 

(21) 

(22) 
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5.  The  transformation  from  generalized  coordinates  to  element  coordinates,  C^q^]*  ts 


calculated  if  no  transverse  shear  material  or  thickness  is  given  (i.e.,  MAT  ID^  = 0 
or  tg  = 0). 


where  [II]  is  given  explicitly  in  the  stiffness  matrix  calculations. 

6.  If  transverse  shear  exists,  the  shear  matrix,  [B],  is  generated.  Additional 
material  terms  are: 

[D]  = where  [E^^]  is  the  bending  material  3x3  matrix. 

6-|i  = G = Shear  coefficient  of  transverse  shear  material. 

The  nonzero  terms  of  [B]  are: 


[Hqu]  = tH] 


(23) 


^4,1  ^ ^9,1  ' Q 


“ Tg)  - cosi|)  sirup  (033  + 2032)]  . (24) 


B 


B 


(26) 


(27) 


B 


(28) 


B 


- sirup  ^22^^’ 
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2 3 31 

*^4,8  ^ ®9,8  ^ ^ °12  ^V~  ^22^ 


(31) 


- n^sinil;  (2D33  + D22)]. 


1 ^ no 

®4,9  ^ ®9,9  ' Q IT  ^*^22  ■'■  *^33^^’ 


’^4,10  ^9,10  Q ["*'('^12  ■*■  °33^  ' " ~t^^^22  °33^^’ 


(32) 

(33) 


where 


2 ? 

>"a  ■*■  >^h  In?  " D,,  + sin  i|;  D„ 

Q . « G,,  !_“] 

«s«ll’-ar 


(34) 


7.  The  transformation  [H]  transforming  displacements  in  the  element  coordinate  system  to 
displacements  in  generalized  coordinates  of  the  power  series  is: 


[H]  = 


COSij) 

'^a 


i 

0 

0 


0 0^0 


0 

i 

0 


0 

0 

i 


0 0 0 1 


0 

0 

0 

0 


2i  3r 


0 0 

0 0 

0 0 

0 0 

1 0 

0 0 

0 0 

0 0 

-1  0 


cosij;  £cosil)  Q Q JL.  !lii  nJl^  nil"^  ^ ^ 
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8. 

The  transformation  [Hq^]  for  nonzero  transverse  shear  is: 

[HqJ  = m - [B])-''  (10x10)  . 

(36) 

9. 

[Hqu]  is  partitioned  into  two  10x5  matrices 

Wqu^  = t^a  i • 

(37) 

10. 

The  loads  in  global  coordinates  are  calculated  with: 

(p.)  • . 

(38) 

(P^)  ■ [E][H^f(pJ)  . 

(39) 

4.87.9.5  Element  Stress  Calculations  (Subroutines  SC0NE1 , SC0NE2,  SC0NE3  of  Module  SDR2) 

1.  For  each  element  the  following  quantities  are  calculated  as  in  section  4.87.9.2: 

r r 

!L,  sinij),  costp,  [E],  [Hg],  (using  s = ^ , r = 

2.  Using  the  material  properties,  the  following  matrices  are  calculated: 


1 -V, 


-Vn  1 


1 - V, 


(40) 
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(1  - v^) 


1 -V2  0 

-v^  1 0 

0 0 1 - V2 

2 


(41) 


[Gs]  = 


where  [E^]»  [D^]  and  [G^]  are  computed  for  membrane,  bending  and  shear  materials 
respecti vely . 


(42) 


3.  The  stress  matrices  are  then  calculated: 


LKs] 


[D]  [H  ] 

xq 


(8x10) 


(43) 


[Sg]  = [K3][H3][E],(8x6)  (44) 

[Sf,]  = [Kg][Hj^][E]  , (8x6)  . (45) 

St-j  ot-|  E-j  1 "t"  CX2E1 2 

St2  “ ^1^12  ^2^12 

(a-|=a2  for  type  1 materials) 

f’  U 

4.  Each  entry  in  the  EST  data  block  contains  data  pertaining  to  the  n^”  harmonic  motion 
of  the  C0NEAX  element.  The  elements  in  the  EST  are  ordered  by  harmonic  and  C0NEAX  I.D. 
number.  All  harmonic  elements  for  each  C0NEAX  are  grouped  together. 

a.  When  the  harmonic,  n,  of  an  element  is  zero,  this  indicates  it  is  the  first 
of  a group  of  elements.  Storage  space  is  allotted  for  fourteen  8 by  1 vectors 
defining  the  element  forces  at  points.  Two  UGV  vector  data  blocks  must  be  used 
to  calculate  stresses  on  points.  These  data  blocks  correspond  to  the  two  subcases 
"C"  and  "S"  and  are  solved  simultaneously  using  the  same  data. 
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b.  Using  the  [S^]  and  [S.  ] matrices  and  the  6 by  1 displacement  vectors,  {u}, 
a D 

by  their  SIL  numbers,  stress  and  force  vectors  are  computed. 

If  n iff  0: 


■ (u'„)  ♦ [Si,„]  (46) 

\ ♦"  / 


^4)n 


-s 

^S(})n 


sn 

(t>n 


- ("In)  * («=„) 


an 


(47) 


S())n 

s 

sn 

s 


(j)n 
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If  n 


0: 


so 


^4)0 


$4)0 


so 


4)0 


ao 


bo-* 


bo 


$4)0 


so 


4)0 


c.  The  temperature  effects  are  added  using  the  GPTT  data  for  the  two  subcases, 
(T'  and  t') 


where 


+ s ^ 
^tl  • 

C ' X _ c 

n^  ” °(}in 

+ s f 

^t2  ‘ 

(<n)  = 

^S4)n 

i (^a"  ^ 

-■'o’  " 

? (^a  ^ V 

n ^ 0 

The  same  equations  are  used  for  the  "S"  set  and  when  n = 0. 
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d.  The  harmonic  stresses  are  calculated  by  the  equations 
for  i = 1 ,2,3: 


0 


c 

sni 


"sn 


(52) 


a 


c 

(f)n 


+ 


(53) 

(54) 
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The  equations  are  repeated  for  the  S set  and  when  n = 0. 

e.  Principal  stresses  (a^ , 02*  0,  calculated  as  with  the 

TRIAl  or  QUADl  element,  except  that  when  n 0 the  data  are  calculated 
for  both  the  S and  C sets. 

f.  The  incremental  element  stresses  or  forces  for  the  points  on  the  cone  are 
calculated  from  the  following  equations  for  j = 1,2,. .,,14: 

For  n ^ 0: 


= 

(0^^)  cos  (n<()j)  + 

(4) 

si 

n (n<j)j)  , 

(55) 

= 

cos  (ncfj)  + 

sir 

1 , 

(56) 

i 

sin 

(n-Oj) 

cos  (n(j)j)  , 

(57) 

= "sn 

cos 

sin 

(n(t)j) , 

(58) 

= 

cos 

sin 

(n*j)  . 

(59) 

’s^j 

= M ^ 
s<pn 

sin 

(nO>j) 

- 

S(j>r 

1 cos 

; (ri(|>^.)  , 

(60) 

- Vsn 

cos 

+ 

sn 

sin 

(61) 

= 

sin 

(n^j) 

- 

(\>r\ 

cos 

(n(|)j)  . 

(62) 

g.  The  incremental  stress  and  force  values  are  added  to  the  running  sums  for  the 
points.  After  the  last  element  is  calculated  (n  = N),  the  forces  and  stresses 
for  the  points  are  calculated  and  output.  The  equations  are  identical  to  steps  d 
and  e of  this  section  except  that  1)  the  "S"  and  "C"  sets  are  not  used  and  2)  up  to  14 
points  may  be  calculated  for  output  for  each  physical  element. 

Since  the  user  may  leave  some  spaces  blank  on  the  property  card  for  this  element, 
only  one  of  the  <j)^.  = 0 points  is  used  in  the  calculation. 
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^.87.9.6  Differential  Stiffness  Matrix  Calculations  (Subroutine  DC0NE  of  Module  DSMGl) 

The  data  input  from  the  ECPT  to  the  DC0NE  subroutine  are  the  same  as  those  given  in  section 
4.87.9.1.  Additional  data  for  the  generation  of  the  differential  stiffness  matrix  are  as  follows: 

{u°},  {u^}  - Displacement  vectors  of  the  zero  harmonic  (extracted  from  the  UGV  data  block) 

T°,  T^  - Element  loading  temperatures  of  the  zero  harmonic  (extracted  from  the  GPTT 


The  first  part  of  the  calculations  involves  calculation  of  the  element  force  components.  The 
following  steps  are  performed  with  harmonic  number  n = 0. 

1.  The  10  by  10  transformation  matrix  [H°  ] is  computed  from: 


data  block) 


uq 


(63) 


where  [H  ],  a 10  by  10  matrix,  and  {H  },  a column  vector,  are  derived  in  the  NASTRAN 

ut-j  u y 


Theoretical  Manual,  section  5.9.5. 3,  and  {H  a row  vector,  is  explicitly  written  out  in 

Ycq 


s 


Equation  85  of  section  5.9  of  the  NASTRAN  Theoretical  Manual. 


2.  The  10  generalized  displacement  quantities  q.  are 


(64) 


where  {u°}  and  {u^}  are  the  6 by  1 displacement  vectors,  and  [E]  is  calculated  as  in 
Equation  4 of  section  4.87.9,2. 


3.  The  strain  coefficients  are 


(65) 
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where  T°  and  T^  are  the  loading  temperatures  at  the  grid  points,  the  {a}  vector  is  obtained 
from  the  MPT  data  block  via  subroutine  MAT  and  I is  calculated  as  in  Equation  1 of  section 


4.87.9.2. 

4.  The  force  coefficients  are  calculated: 

^0  " ^m  ‘'1 2 ^3  • 

^1  " ^m  ‘^12  94  + ^ qg)  , 

®2  " ^m  *^12  ^7  ’ 

^3  ^ ^m  *^12  ‘^8  ’ 

‘’o  " ^m  *"22  'I'  ^3  » 

‘’l  " ^m  *"22  ^4  'i>  <16^  > 

^2  ~ ^22  ^ *^7  ’ 

^3  ^ ^m  *^22  *^8  ’ 

^0  ° ^m  *^11  ^*^4  ■ ^s^  ■ ^m  *^12  ^4)  ’ 

*^1  " ‘^m  ^11  ^^s  ■ ^m  ‘^12  % ’ 

*^0  ^ ^m  '’12  ^*^4  ■ ^s^  ■ '•m  '’22  ^<j>  ’ 

“^l  " ■'^m  '’12  ■ '^m  '’22  ^^4  ’ 


(67) 

(68) 

(69) 

(70) 

(71) 

(72) 

(73) 

(74) 

(75) 

(76) 

(77) 

(78) 
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where  G-j2  cind  G^2  are  elements  of  the  3 by  3 symmetric  material  properties  matrix,  [6], 
5.  The  geometry  coefficients  are  calculated: 


I 


mn 


s'"  ds 


m = 0,  I,..., 9 

n = 0,  1,  2,  3 


(79) 


where 


r 


(80) 


An  explicit  formula  for  the  evaluation  of  I^^  is  given  in  the  NASTRAN  Theoretical  Manual, 
section  5. 9. 5. 8. 

6.  The  following  coefficients  for  the  computation  of  the  differential  stiffness  matrix  are 
calculated: 


^mn  ^0  ^m,  n+1  ^ ^1  ^m+1 , n+1  ^ ^2  ^m+2,  n+1 
^3  ^m+3,  n+1  ^ ^o  ^m,  n ^ ^1  ^m+1 , n 

^mn  ^0  ^m,  n+1  ^1  ^m+1 , n+1  ^2  ^m+2,  n+1 

^3  ^m+3,  n+1  '*0  ^m.  n ^1  ^m+1,  n 

C = A + B 
mn  mn  mn  ’ 


(81) 


(82) 

(83) 


where  m = 0,  1....6;  n = 0,  1,2. 

Note:  The  index  n used  above  is  a dummy  index  and  is  not  the  harmonic  number. 

The  second  part  of  the  calculations  involves  generating  the  differential  stiffness  matrix. 

The  remaining  steps  use  n as  the  harmonic  number  of  the  element. 

1.  The  nonzero  elements  of  the  symmetric  differential  stiffness  matrix  [K^^],  in  generalized 
coordinates,  are  given  in  Table  Ic  below. 
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Table  Ic.  Nonzero  Elements  of  the  Differential  Stiffness  Matrix, 


t^qcl  . 

ni 

= C0S^Bq2  + 1 sin^\l)CQ2 

^qd  . 
'^12 

2 1 . 12 
= cos  \|)B.|2  + 4 sio^Cq^  + 4 sin  \|)C^2 

l/qd  . 

■ ^ nsin\l;CQ2 

|/qd  . 

= 1 nsinij;C^2 

l/qd  . 

ns 

= ncosi|;Bp2 

M . 

n6  ■ 

= ncosij;Bi2 

|/qd  . 

= ncos\(;B22 

|/qd  . 

ns  ■ 

= ncosi|;B22 

M . 
hz 

= cos  ^B22  Cqq  + 2 sini|iCii  + ^ sin  ^^22 

i/qd  . 

ns  ■ 

' T *^^01  ^ ? nsim|;Ci2 

|/qd  . 
n4  ■ 

■ ^ ^ ^ nsinij;C22 

i/qd  . 

ns 

= ncosi/;Bi2 

•^26 

= ncosi|;B22 

= 

n7 

= ncosi/^B22 

i<qd  . 
ns  ■ 

= ncosi|;B^2 

i/qd  . 

ns  ■ 

- 1 n2r 

■ 4 " ^02 

= 

n4 

- I n2p 

- 4 n C^2 
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Table  Ic  (con'd).  Elements  of  the  Differential  Stiffness  Matrix, 


_ 1 2„ 
^44  4 n 1^22 


,/qd  _ 

n^Bo2 

M _ 

he 

"'^12 

= 

■^57 

n^B22 

= 

'^58 

"^^32 

*^66  " %0  ^ "^^22 


'^67  ^^10  "^^32 


'^68  ^^20  "^®42 


'^77  ^ ^^20  "^^42 


" ^52 


*^88  ■ ^^40  ^ ” ^62 


The  formulas  for  n = 0 are  the  same  as  in  Table  Ic  except  that  they  are  all  multiplied  by  2. 
The  nonzero  terms  for  n = 0 fall  into  two  uncoupled  sets  which  are 


(11)  (12) 
(22) 

Effect  on 
Twisting 


(ee)  (67)  (68) 

(77)  (78) 

Effect  on  Axisymmetric  Deformation 


2.  The  10  by  10  transformation  matrix,  from  generalized  coordinates  to  element 

‘hh 

coordinates,  for  the  n^^  harmonic  is  computed  as  in  Equation  63.  The  matrix  is  inverted  and 
partitioned  into  two  10  by  5 matrices: 
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-1 


=|>  [H 


a i 


(84) 


3.  The  6 by  6 differential  stiffness  matrices  in  global  coordinates  are: 

[K^j]  = [E]  [H.f  [H.]  [Ef  . (85) 


where  i = pivot  grid  point;  j = a,  b;  and  [E]  is  computed  as  in  Equation  4 of  section  4.87.9.2. 
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4.87.10  The  TRIARG  Element 

4.87.10.1  Input  Data  for  the  TRIARG  Element 


1.  The  ECPT/EST  entries  for  the  axisymmetric  triangular  ring  (TRIARG)  element  are: 


Symbol 


Descriptions 


SIL^  ,SIL2,SIL3 
Y 

Mat  I.D. 


Scalar  index  numbers  for  the  three  grid  points. 

Material  property  orientation  angle  (degrees) 
Material  property  identification  number. 

Local  coordinate  system  number  and  location 
in  basic  coordinates  of  the  three  grid  points. 


t 


y 


Element  temperature  for  material  properties. 


For  this  element,  must  equal  zero  for  i = 1,  2 and  3 and,  we  define: 


{Rs} 


0) 


{Zs}  = 


"si 

's2 

^s3 


(2) 


2.  Coordinate  system  data 

The  location  (X^. ,Y^. ,Z^. ) and  local  coordinate  system  number  (N^. ) of  each  grid  point  are 
used  to  calculate  the  3 by  3 global-to-basic  coordinate  system  transformation  matrices, 
[T^.],  i = 1,  2,  3. 

3.  Material  data 

The  material  property  identification  number.  Mat  I.D.,  and  the  element  temperature  for 
material  properties,  t^,  are  used  to  select  the  followina  data  items.  For  this  element, 
material  properties  may  be  defined  on  a MATl  or  MAT3  but  not  a MAT2  bulk  data  card. 
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Symbol 

^re’^6z*^zr 

P 

^re'^ez'^z 

°‘r’“e’<^z 

9e 

4.87.10.2  General  Geometric  Calculations 
1.  Local  coordinate  calculations  are: 


Description 

Young's  moduli  in  the  radial,  tangential 
and  axial  directions  respectively. 

Poisson's  ratios  in  the  three  directions 
indicated. 

Mass  density 

Shear  moduli  in  the  three  directions  indicated. 

Coefficients  of  thermal  expansion  in  the  three 
directions  indicated. 

Thermal  expansion  reference  temperature. 

Structural  element  damping  coefficient. 


^min  = minimum  of  (Z3^.Z32.Z33), 


(3) 


{Rl> 


{Rs}. 


(4) 


{Z^}  = {Z3}  - 


^mir 
^mi  n } 
^mi 


2.  The  transformation  from  field  coordinates  to  grid  point  degrees  of  freedom  is 
given  by  (R|^^  and  Z|^^  are  the  i^"  components  of  {R^}  and  {Zj^}  respectively): 


= 


1 

0 

1 

0 

1 

0 


LI 

0 

0 

0 


^L1 

0 

^L2 

0 

'l3 

0 


0 

1 

0 

1 

0 

1 


\1 

0 

0 


^L1 

0 

^L2 

0 


^L3-J 


(5) 


(6) 


6x6 
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(7) 


3.  The  transformation  matrix  from  two  to  three  degrees  of  freedom  per  ooint  is: 


= 


1 

0 

0 

0 

0 

. 0 


0 

0 

0 

0 

0 

0 


0 

1 

0 

0 

0 

0 


0 

0 

1 

0 

0 

0 


0 

0 

0 

0 

0 

0 


0 

0 

0 

1 

0 

0 


0 

0 

0 

0 


0 

0 

0 

0 

0 

0 


0“ 

0 

0 

0 

0 

IJ 


(8) 


6x9 


4.87.10.3  Integral  Calculations 


1.  The  integrals  over  the  area  of  the  cross-section  are  of  the  form: 


6ij  = r^z-^dzdr, 


for  the  values: 


‘^-10*'^-11  ’^00’'^10*‘^20'^30*‘^01  •^ir'^21  ’^02’^12’‘^-12 
To  accomplish  this  we  integrate  in  two  parts: 

a.  From  1 ine  Z = K-|2r  + m-|2  to  line  Z = •^13^  + 

where 


(9) 


,,  _ ^L.i  ~ ^Li 

ij  ■ R.  . - R,  .• 


and 


"ij 


Lj 


Li 


\i\j  - \j\i 

\j  - \i 


(10) 


(11) 
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and  from  poini:  Rj^^. 

b.  From  line  Z = ^-|2  ^ ^ ^32  point  R^^^  R|^2* 

For  the  case  where 


\1 


= Rl2  or 


\z  ' \l 


12 


< 10 


-5 


we  must  integrate  differently,  that  is,  from  line  Z = + m^2  ^ “ *^13*^  *^*13 

and  from  Rj^^  to  Rj^^* 


2.  After  the  integrals  are  computed,  a check  is  made  to  determine  if  an  excessive 
amount  of  round-off  error  occurred.  If  round-off  was  excessive,  an  approximate 
integral  can  be  calculated. 

These  tests  are: 

If  any  6.  .<0,  then  approximation  must  be  used. 

* J 

If  0^2  1°02’  '^-12  - '^12’  '^-12  ^ '^02*  approximation  must  be  used. 

/\  /V  ^ 

If  Ar  < r or  AZ  < Z,  then  approximation  must  be  used.  The  terms  Ar,  AZ,  r and  Z are: 


Ar  = max.(|R|^^ 

\2l*  l*^L2  " ^3!’  I*^L3  " \ll^’ 

(12) 

r = 

j[min.(R|^^,  ^|_3)J/^^j 

(13) 

AZ  = max.(|Z^^ 

- ^2!  * 1^2  ■ ^3!  ’ I^L3  ■ ^L1 1 

(14) 

✓s 

Z = 

[min  (Zlp  Z^2,  2^3)1/10. 

(15) 
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The  approximation  is: 


(16) 


where 


'"a  ^ 3 ^ \z  ^ 


" T ^ ^L3^’ 


(17) 

(18) 


A = 7 [Rli  (^l2‘^3^  \z  ^^L3‘^L1^  ^3 


(19) 


3.  Form  the  matrix  of  integrals: 


[D]  = 2ti 


00 

0 


"10 

^10 


0 

0 


"01 

0 

^10 


0 

0 

0 

^10 


0 

0 

'lO 

0 


4x6 


(20) 


4,87.10.4  Elastic  Constants  Matrix  Calculations 


1.  Generate  the  transformation  from  material  axis  to  element  geometric  axis: 


= 


cos^Y 


sin^Y 


-ZsinYCOSY 


sin^Y 


cos^Y 


2sinYCOSY 


SinYCOSY 

0 

-sinYCOSY 

2 . 2 
cos  Y-sin  Y 


4x4 


(21) 


2.  Generate  the  matrix  of  elastic  constants  for  an  orthotropic  body  with 
respect  to  cylindrical  coordinates: 
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(Symmetric) 

■ 1 

^r(^zr%r''ze)  ^e^^ze^e'^zr) 

» 

C\J 

CM 

o 

o 

0 _ 

4x4 

where 


^er 

’^re  ’ 

(23) 

^Z0 

^ez  ^z'^^e  ’ 

(24) 

^rz 

'^zr  ^r^^z  * 

(25) 

A = 1 - V^g  Vg^-Vg^  V^g 

- ^zr  ^rz  - ^re  '^ez  ^zr  ' '^rz  '^Sr  '’z6  . 

(26) 

Calculate  the  elastic  constants  matrix  in  element  geometric  axes: 

[E,l  ■ 

[T.„]^[E„][T,„]  . 
eo"*  m eo 

(27) 

4.87.10.5  Stiffness  Matrix  Generation  (Subroutine  KTRIRG  of  Module  SMAl) 
1.  Generate  the  element  stiffness  matrix  in  field  coordinates: 
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[K] 

= 

^22'^-!  0 

(Ei2+E22)'5oo 

(Eii+2Ei2+E22)'Sio 

^22^-1  r^24'^00 

(Ei2+E22)'5or(^14‘^^24^^10 

E22'S.-|2+2E24«oi+E446io 

0 

0 

0 

0 

(28) 

^24*^00 

(E-|  4+^24  )fiio 

^24'^0r^44'^10 

0 

^44*^10 

• 

^23'^00 

^^13‘^^23^'^10 

^23'^0r^34'^10 

0 

^34^10  ^33'^10_ 

6x6 

where  E^.j  is  an  element  of  [Eg]. 

2.  Transform  the  element  stiffness  matrix  from  field  coordinates  to  grid  point 
degrees  of  freedom: 

[K]  ■ (29) 

3.  Transform  the  element  stiffness  matrix  from  two  to  three  degrees  of  freedom  oer 
point. 

[K]  = Lrq/EKJCFq^].  (30) 

2 

4.  The  3 by  3 partitions  [Kj:.]  of  [K]  corresponding  to  the  pivot  point  p are 

PJ 

transformed: 

[K^j]  = [Tpf[K^jJ[TjJ,  j = 1,2,3  (31) 

5.  Finally  these  3 by  3 partitions  are  expanded  to  6 by  6 partitions: 
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= 


q<3 


L 0 


(32) 


4.87.10.6  Mass  Matrix  Calculations  (Subroutine  MTRIR6  of  Module  SMA2) 


1.  Generate  the  consistent  mass  matrix  in  field  coordinates: 


[MJ  = 2tt 


"'n'^20  "’n'^30 


"'n'^n  "’ll '^21  '"n®i2 


(Symmetric) 


0 "'22'^!  0 


0 "122^20  "’22'^30 


0 m22^i 1 ^22^21  m22^i 2 


.(33) 


6x6 


where 


[ffi] 


0“i  r'” 


"11 


0 n 


L 0 m22-i 


(34) 


2.  Transform  the  mass  matrix  from  field  coordinates  to  grid  point  degrees  of  freedom; 


[M]  = [r^ql'MEr^q]. 


(35) 


3.  Transform  the  mass  matrix  from  two  to  three  degrees  of  freedom  per  point: 


[M]  = [rq3f[M][rq3J. 


(36) 
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4.  The  6 by  6 partitions,  are  calculated  as  in  Equations  31  and  32. 

r J 

4.87.10.7  Thermal  Load  Calculations  (Subroutine  TTRIRG  of  Module  SSGl ) 

1.  Form  the  vector  of  thermal  strains: 


0 

where  is  the  average  loading  temperature  at  the  grid  points, 
a vg 

2.  Compute  thermal  load  vector  in  grid  point  degrees  of  freedom: 

{F^}  = [rgqf[of[EgJ{a}  (6x1).  (38) 

3.  Transform  thermal  load  from  two  to  three  degrees  of  freedom  per  point 

{Ft>  = [Fqsf(V 

4.  Each  partition, {F^},  of  length  3 of  (Fj)  is  transformed  to  global  coordinates  by 

{F^}g  = [T.]T  {fJ}  . (40) 

5.  These  vectors  are  added  to  the  overall  load  vector,  {P^}. 

4.87.10.8  Element  Force  and  Stress  Calculations  (Subroutines  STRIRl  and  STRIR2  of  Module  SDR2) 

Element  stress  and  force  data  items  are  calculated  in  two  phases.  The  first  phase 
(subroutine  STRIRl)  calculates  the  element  stiffness  and  stress  matrices.  The  second  phase 
(subroutine  STRIR2)  calculates  the  actual  element  forces  and  stresses  from  the  various 
subcase  displacement  vectors. 
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4.87.10.9  Thermal  Analysis  Calculations  for  the  TRIARG  and  TRAPRG  Elements 

If  a heat  transer  problem  is  being  solved,  special  code  and  subroutines  are  used  for  these 
elements.  The  following  checks  are  made  on  the  geometry: 

y = 0 ) 

) i = 1,  2,  3 (or  4). 

Xi  > 0 \ 

If  these  conditions  are  not  met,  a fatal  error  exists.  The  order  of  the  grid  points  is  also 
checked.^  The  following  equation  must  be  true: 

(Xs  - x^)  (Zf  - Zj)  - (Xj  - Xj)  (Zg  - 2^)  > 0. 

where  the  indices  r,  s,  t correspond  to  three  grid  points  in  the  element  where 

r,  s,  t = 1,  2,  3 for  triangles, 

or  s,  t = 1 , 2,  3 \ 

2,  3,  4 ( 

) for  trapezoids. 

3,  4,  1 ( 

4,  1,  2 ) 

The  conduction  matrix  for  TRIARG  is  computed  by  calling  for  a TRMEM,  whose  thickness  is 
calculated  from 

t = 27t(Xi  + X2  + 

To  compute  the  conduction  matrix  for  TRAPRG,  it  will  be  divided  into  overlapping  triangles. 
The  mapping  is  exactly  the  same  as  the  mapping  of  quadrilaterals  into  triangles.  The  material 
orientation  angles  for  the  triangles  must  be  computed  as  was  done  for  QDMEM.  The  thickness  of 
each  of  the  triangles  is  given  by 


t = tt(x^  x^)/3, 

where  r,  s,  t,  are  the  three  vertex  indices  used  from  the  mapping  matrix.  The  KTRMEM 
subroutine  is  then  called  tour  times. 
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y = 0 

X.  > 0 


= 1,  2,  3 (or  4). 


If  these  conditions  are  not  met,  a fatal  error  exists.  The  order  of  the  grid  points  is  also 
checked.  The  following  equation  must  be  true: 


(Xj  - x^)  (z^  - Z^)  - (X^  - X3)  (Z3  - z^)  > 0, 

where  the  indices  r,  s,  t correspond  to  three  grid  points  in  the  element  where 

r,  s,  t = 1,  2,  3 for  triangles. 


or  r,  s,  t = 1 , 2,  3 \ 

2,  3,  4( 

) for  trapezoids. 

3,  4,  1 f 

4,  U 2 


The  thermal  "stiffness"  matrices  are  generated  by  subroutine  HRING  of  module  SMAl . The 
conduction  matrix  for  TRIARG  is  computed  by  calling  for  a TRMEM,  whose  thickness  is  calculated 
from 

t = 27t(x^  + X2  + x^)/3. 


To  compute  the  conduction  matrix  for  TRAPRG,  it  will  be  divided  into  overlapping  triangles. 
The  mapping  is  exactly  the  same  as  the  mapping  of  quadrilaterals  into  triangles.  The  material 
orientation  angles  for  the  triangles  must  be  computed  as  was  done  for  QDMEM.  The  thickness  of 
each  of  the  triangles  is  given  by: 


t = it(x^  x^)/3. 


where  r,  s,  t are  the  three  vertex  indices  used  from  the  mapping  matrix.  The  KTRMEM  subroutine 
is  then  called  four  times. 

The  thermal  "mass"  matrices  are  generated  in  a similar  manner.  Subroutine  MRING  in  module 
SMA2  rearranges  the  ECPT  data  into  the  TRMEM  format  with  the  equivalent  "thickness"  given  by: 

t = ^ (x^  + X2  + X3). 
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Subroutine  MASSTQ  generates  the  scalar  mass  terms  for  each  triangle  and  Inserts  them  Into 
the  BGG  matrix.  The  TRIAG  element  is  converted  into  a triangle  once.  The  TRAPRG  element  is 
arranged  into  the  TRMEM  format  for  each  of  its  four  overlapping  subtriangles;  each  triangle  having 
a different  equivalent  "thickness,"  t,  given  by  the  equation  above. 

The  thermal  "stress"  output  data  calculations  are  performed  by  subroutines  SDHTFl , SDHTF2, 
and  SDHTFF  in  module  SDR2.  The  TRIARG  and  TRAPRG  elements  are  processed  with  the  same  equations 
as  the  TRMEM  or  QDMEM  elements,  except  that  the  value  of  the  "thickness"  t is  calculated  as  above. 
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4.87.11  The  TRAPRG  Element 

4.87,11.1  Input  Data  for  the  TRAPRG  Element 


1.  The  ECPT/EST  entries  for  the  axi symnetric  trapezoidal  ring  (TRAPRG)  element  are 


Symbol 

SIL^,SIL2.SIL3.SIL4 

Y 

Mat.  I.D. 


Description 

Scalar  index  numbers  for  the  four  grid  points. 
Material  property  orientation  angle  (degrees). 
Material  property  identification  number. 


N2.X2,Y2,Z2 

n^>x^,y^,z^ 


Local  coordinate  system  number  and  location  in  basic 
coordinates  of  the  four  grid  points. 


Element  temperature  for  material  properties 


For  this  element  Y^.  must  equal  zero  for  i = 1,  2,  3 and  4,  and  we  define: 


{R3>  = 


(1) 


(2) 
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2.  Geometry  Input 

The  location  (X^. , Y^. , Z^. ) and  local  coordinate  system  number  (N^. ) of  each  grid  point 
are  used  to  calculate  the  3 by  3 global -to-basic  coordinate  system  transformation 
matrices,  [T^.],  i = 1,2, 3, 4. 

3.  Material  Property  Input 

The  material  property  input  for  the  TRAPRG  element  is  the  same  as  that  for  the  TRIARG 
element  (see  section  4.87.10.1). 

4.87.11.2  General  Calculations 

1.  Local  coordinate  calculations  are: 


minimum  of  (Z 

CM 

(/> 

rM 

’ ^s3’  ^s4^’ 

(3) 

{\]  = 

( 

^min  1 

(4) 

(Zl)  = 

l^min(  • 

(5) 

^min 

^min 


Let  R|_^.  and  be  the  i^^  component  of  {Rj^}  and  {Z^^}  respecti vely . To  insure  the  user 
has  input  his  grid  points  in  accordance  with  the  restrictions  set  down  in  section  2 of  the 
User's  Manual,  the  following  tests  are  made: 

If  Rj^^  ^ R|^2  f^[_4  1 \3  or  Zj^^  £ Zj^-| , then  the  user  has  violated  the  restriction  that  the 

grid  points  be  ordered  in  a counterclockwise  manner  and  a user  fatal  error  occurs. 

If  |Z|^i  - Z^2l  ^ or  |Z|^2  " ^L4l  ^ .001,  then  the  restriction  that  the  line  joining  grid 
points  1 and  2 and  the  line  joining  grid  points  3 and  4 be  parallel  to  the  r-axis  has  been 
violated  and  a user  fatal  error  occurs. 

2.  Test  for  a rectangle.  Define: 

'^M14  = ^ (6) 
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*^M23  ■ 


If 


If 


|\l  ' \4| 

’^M14 

\2  ~ \3| 

*^M23 


< 0 005 

then 

\i 

- \4  = 

< 0.005 

then 

\z 

\3  " 

•^M23- 

If  Rli  ” ^l4  ^L2  ~ *^L3’  element  is  rectangular. 

If  R|_i  = R|_^  = 0,  then  the  element  is  a core  element. 

3.  Generate  the  transformation  matrix  from  field  coordinates  to  grid  point 
degrees  of  freedom: 


[H]  = 


1 


\l  ^L1  \l\l  ° 


0 

1 R, 


1 Rl4  \4^L4  ° 


1 


[H]  = [H]-^ 


LI  V/l1 


1 R^2  Z|_^  R^^2^L1  ° ° 

0 0 0 0 1 R, 


L2  \z^U 


^ \3  ^L4  \3^L4  ° ° 


^ \3  ^L4  \3^4 

0 0 0 


R, 


L4  ^L4  \4^4 


8x8 


4.  Generate  the  transformation  matrix  from  two  to  three  degrees  of  freedom  per  point: 

1 00000000000 
001  000000000 
0001  00000000 
000001  000000 
000000100000  j 

000000001  000  I 
0000000001  00  i 

I 

000000000001  ; 8x1 2 


4.87-141  (3/1/71) 


MODULE  FUNCTIONAL  DESCRIPTIONS 


5.  If  the  element  is  a core  element,  then: 

^Ij  ~ ^3j  ” ^ “ 1,2,. ..,8  , 

^•1  = h-7  = 0 i = 1,2,. ..,8  . 

where  h^.j  is  an  element  of  [H]. 

4.87.11.3  Integral  Calculations 

a.  Compute  the  integrals  over  the  cross-section  of  the  trapezoid  that 
are  of  the  form: 


I 


Pq 


ff  drdz 

rz 


for  the  values: 

^lO’^-ir^-12’^00’^01  ’^02’^10’^irh2’^20’^21  *^22 ’^30 ’^31  ’^32  * 


The  limits  of  integration  are  chosen  depending  on  the  geometric  shape  of  the 
trapezoid. 


If  the  lines  between  points  1 and  4 and  between  points  2 and  3 are  defined 
by  the  equations 


r = a + bz, 
r = c + dz. 
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respectively,  then: 


a = R, 


LI 


/ \4  ■ , 

■ LI* 


(15) 


b = 


^^14  ' ^L1 
^4  ‘ ^L1 


(16) 


I ^L3  ■ ^ 

c - \2  ■ 1 7 — i \z’ 

\^L3  ‘-\2/ 


(17) 


d = 


\3  ~ \z 

\z  ■ \z 


(18) 


In  general,  the  integration  takes  the  form: 


Z4  c+dz 


// 

Z.J  a+bz 


Ipq  = / / r^’z'^  drdz. 


(19) 


For  the  case  with  the  side  r = c + dz  parallel  to  the  axis  of  symmetry  (the 
z axis)  we  have: 


‘Pq 


H e 

/ / 

a+bz 


r^z^  drdz. 


(20) 


For  the  case  with  the  side  r = a + bz  parallel  to  the  axis  of  symmetry  we 
have: 


^Pq 


z^  c+dz 

/ I 

Zi  a 


r^z*^  drdz. 


(21) 


And  finally  for  the  rectangle,  the  integration  takes  the  form 
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C P q j j 
r drdz. 


(22) 


4.87.11 »4  Elastic  Constants  Matrix  Calculation 

The  elastic  constants  matrix  in  element  coordinates,  i"o^  the  THAPRG  element 

is  calculated  identically  to  the  elastic  constants  matrix  for  the  TRIARG  element  (see 
section  4.87.10.4). 

4.87.11.5  Stiffness  Matrix  Generation  (Subroutine  KTRAPR  of  Module  SMAl ) 

1.  Generate  the  terms  of  the  symmetric  element  stiffness  matrix  in  field  coordinates  as 
shown  in  Table  2,  Each  term  must  be  multiplied  by  27t  to  form  [K]. 

2.  Transform  the  element  stiffness  matrix  from  field  coordinates  to  grid  point 
degrees  of  freedom: 


[K]  = [Hf[K][H]. 


(23) 


3.  Transform  the  element  stiffness  matrix  from  two  to  three  degrees  of  freedom 
per  point: 


[K]  . 


(24) 


4,  The  3 by  3 partitions  LK  j]  of  [K]  corresponding  to  the  pivot  point  p are 

r J 

transformed: 


- [T/[Kp3jKT^,].  J-1, 2,3,4. 


(25) 


5.  Finally,  these  3 by  3 partitions  are  expanded  to  6 by  6 partitions: 


0 


(26) 


0 


0 


4.87-144 


STRUCTURAL  ELEMENT  DESCRIPTIONS 


Table  2. 

Elements  of  the 

8 by  8 Symmetric  Stiffness  Matrix 

for  the  TRAPRG  Element 

Col.  1 

Col.  2 

Col.  3 

Cul . 4 

Row  1 

^22^-10 

Row  2 

^^22'^^12^'^00 

(Eii+2Ei2+E22)Iio 

Row  3 

^22^-11 

(E^2'^^22^^01 

^22^-12'^^44^10 

Row  4 

(Ei2+E22)Io1 

(Eii+2Ei2+E22)Iii 

(E^ 2+^22^ ^02 

(Eii+2Ei2+E22)Ii2 

+ E44I20 

^44^0 

Row  5 

0 

0 

0 

0 

Row  6 

0 

0 

^44^10 

^44^20 

Row  7 

^32^00 

^^13'^^23^ho 

%^01 

(h3'^^23^hl 

Row  8 

^32^10 

^^3r^32^^20 

(E23+E44)Iii 

^^13‘^^23'^^44^^21 

Col. 

5 Col.  6 Col.  7 

Col.  8 

Row  5 

0 

Row  6 

0 

^44^10 

Row  7 

0 

0 

^33^10 

Row  8 

0 

E44I11 

^33^20 
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4.87.11.6  Mass  Matrix  Calculation  (Subroutine  MTRAPR  of  Module  SMA2) 

1.  Form  the  coupled  mass  matrix  in  field  coordinates: 


^I^IO 


[M]  = 2tt 


where 


"ll20 

^1^30 

Syimietric 

"i'll 

'^1^21 

M^Ii2 

'^1^21 

^1^31 

^^22 

^1^32 

0 

0 

0 

0 

"2I10 

0 

0 

0 

0 

^2^30 

0 

0 

0 

0 

^2^11  ^2^21 

^^2^2 

0 

0 

0 

0 

^2^21  ^2^31 

M2 1 22 

Ml  = 

1^2  = P • 

8x8 


(27) 


(28) 


2.  Transform  the  mass  matrix  to  grid  point  degrees  of  freedom: 

[M]  = [H]^[M]LH]. 

3.  Transform  the  mass  matrix  from  two  to  three  degrees  of  freedom  per  point; 


(29) 


[M]  = trq3][M][Fq3]. 

4.  The  6 by  6 partitions,  [Mpj],  are  calculated  as  in  Equations  25  and  26. 


(30) 
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4.87.11.7  Thermal  Load  Calculations  (Subroutine  TTRAPR  of  Module  SSGl ) 

1.  Form  the  temperature  gradient  vector; 

{AT}  = (T) 

where  {T}  is  the  vector  of  loading  temperatures  at  the  grid  points. 

2.  Form  the  thermal  expansion  coefficient  vector; 


(31) 


3.  Multiply  the  elastic  constants  matrix  by  the  thermal  expansion  coefficient 
vector; 


(32) 


{AB}  = [Eg]{a}  • 

4.  Form  the  [Q]  matrix; 


AB2I00 

AB2I1  Q 

AB2I01 

AB2I11 

(AB-|  +AB2 ) Q 

(AB-|  +AB2 ) ^20 

(AB,+AB2)Iit 

(AB-|  +AB2 ) I21 

AB2I01 

AB2I11 

AB2I02 

AB2I12 

(AB-|  +AB2 ) I 

(AB-|  +AB2  )l2i 

(AB-j  +AB2 ) I]  2 

(AB1+AB2) I22 

4 

0 

0 

0 

0 

0 

0 

0 

0 

AB3I10 

AB3I20 

AB3I11 

AB3I21 

^^3^20 

^^3^30 

AB3I21 

AB3I31 

8x4 

(33) 
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5.  Partition  the  transformation  matrix  [H]  to  form  [H']: 

[H‘]  = [h'.j]  4x4,  (35) 

where 

*^'ij  " ^*k  ’’  ^ j = 1,2,. ..,4;  and  k = 2j-l 

and  h^.  are  the  elements  of  [H]. 

6.  Compute  the  thermal  load  in  field  coordinates: 

{Fj}  = 2tt[0][H']{AT}.  • (36) 

7.  Transform  the  thermal  load  to  grid  point  degrees  of  freedom: 

{F^.}  = [Hf{F^}.  (37) 

8.  Transform  the  thermal  load  from  two  to  three  degrees  of  freedom  per  point: 

(38) 

3 

9.  Each  partition,  {Fj},  of  length  3 of  {Fj}  is  transformed  to  global  coordinates  by: 

{F^}g  = [T^.f{F^}.  (39) 

10.  These  vectors  are  added  to  the  overall  load  vector, 

4.87.11.8  Element  Force  and  Stress  Calculations  (Subroutines  STRAP!  and  STRAP2  of 
Module  SDR2). 

Element  stress  and  force  data  items  are  calculated  in  two  phases.  The  first  phase 
(subroutine  STRAP!)  calculates  the  element  stiffness  and  stress  matrices.  The  second 
phase  (subroutine  STRAP2)  calculates  the  element  forces  and  stresses  from  the  various 
subcase  displacement  vectors. 
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Phase  1 calculations  are  as  follows: 

1.  Form  the  element  stiffness  matrix,  [K],  as  in  section  4.87.11.5. 

2.  Define  a fifth  "grid  point"  to  be  the  average  of  the  other  four  points: 


*^L5  ^ \z  ^ \3 


(40) 


^5  4^^L1  ^2  ^L3  ^L4^- 


(41) 


3.  Form  the  matrices 


where 


0 1 


R ^ 

\i 


0 

Z 

Rli  ^Li 


\i  ° 


0 0 1 \i  ° 


0 0 


0 0 


0 R^i 


0 Zl^. 


J 4x8 


(42) 


where  i = 1 to  5 denotes  the  five  grid  points. 

4.  Compute  the  stress  matrices  for  each  of  the  five  grid  points  in  field  coordinates: 


= [Eg][D^'h. 


(43) 
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5.  Transform  each  stress  matrix  to  grid  point  degrees  of  freedom: 

6.  Transform  each  stress  matrix  from  two  to  three  degrees  of  freedom  per  point: 

[s(')]  = [s(')][r„j. 

7.  Form  the  master  stress  matrix: 

[S]  = 

8.  Transform  the  stress  matrix  from  basic  to  local  coordinates: 


:0) 


.(2) 


:(3) 


■M) 


:(5) 


20  X 12 


where 


[S][T^234]  • 


1^^1234^ 


'1 


.1  _ 


’ 0 
1 

I 


0 I T^  ' 0 

0 I 0 ' T, 

. - - _ _ i .3 

0 I 0 1 0 


9.  Compute  the  thermal  stress  vector: 

tT3>  = [E^]{a>  • 

Phase  2 calculations  are  ar  -^oilc'/s: 


1.  Extract  the  displacement  vector,  {A},  at  the  three  translation  coordinates  of  each 
four  grid  points  from  the  global  displacement  vector. 


(44) 


(45) 


(46) 


(47) 


(48) 


(49) 


of  the 
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2.  Calculate  the  element  forces: 

{P}  = [K]{A}  . 

3.  Calculate  the  element  stresses: 

{a}  = [S^]{A}  - {T^}  , 


(50) 


(51) 


where 


d 


T^.  - T^,  if  i 5 (T^.  is  the  temperature  at  the 
i^^  point) 

j - j if  i = 5 (T  is  the  average  temperature 

avg  0 avg  ^ 

over  the  four  grid  points) 


(52) 


4.87.11.9  Thermal  Analysis  Calculations  for  the  TRAPRG  Element  (Subroutine  HRING  by  Module  SMAl) 

The  calculations  are  described  in  the  preceding  description  for  the  TRIARG  element;  see 
Section  4.87.10.9. 


4.87-151  (8/1/72) 


MODULE  FUNCTIONAL  DESCRIPTIONS 

4,87.12  The  T0RDRG  Element 

4.87.12.1  Input  Data  for  the  T0RDRG  Element 

1.  The  ECPT/EST  entries  for  the  axisynmetric  toroidal  ring  (T0RDR6)  element  are: 


Symbol 

Description 

SIL^,  SIL2 

Scalar  index  numbers  for  the  two  grid  points 

a-j . 0^2 

Angles  of  curvature  at  the  two  grid  points  (degrees) 

Y 

Material  property  orientation  angle  (currently  not  used) 

m’  f 

Membrane  and  flexure  thickness 

X 

-< 

Local  coordinate  system  number  and  location  in  basic 

coordinates  of  the  grid  points. 

t 

P 

Element  temperature  for  material  properties 

For  this  element  Y^.  must  equal  zero  for  i = 1 and  2,  and  we  define: 


■ {x^}  • 

1 

2.  Coordinate  system  data 

The  location  (X^.  ,Y^.  ,Z^. ) and  local  coordinate  system  number  (N^. ) of  each  grid  point  are 
used  to  calculate  the  3 by  3 global -to-basic  coordinate  system  transformation  matrices, 
[T^.],  i = 1,  2. 

3.  Material  data 

The  material  property  input  for  the  T0RDRG  element  is  the  same  as  that  for  TRIARG 
element  (see  section  4.87.10.1)  with  the  following  notational  changes: 
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= E 


r’ 


= E 


0,  M 


= V, 


re 


{ALF} 


4.87.12.2  General  Calculations 

1.  Compute  the  following  constants  used  in  stiffness  matrix  generation: 


c = Ep/E^  , (3) 

Dg  = Ep  H^/(12  (C  - vj^)).  (5) 


2.  Determine  if  the  element  is  a toroidal  ring,  a conical  ring,  a cylindrical  ring, 
or  a shell  cap: 

(1)  if  a-|  f a2»  then  the  element  is  a toroidal  ring. 

(2)  if  = «2  = 90®,  then  the  element  is  a cylindrical  ring. 

(3)  if  - 0.2  f 90°,  then  the  element  is  a conical  ring. 

(4)  if  = 0,  then  the  element  is  a shell  can. 

3.  Compute  the  local  coordinate  constants  for  a toroidal  element: 


^2  ” °^1  ’ 


(6) 


[(R2  - + (Z2  - 


(7) 


2 sin  (/) 


X 


1 


(8) 
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S - (a2  ” ot-j  )Rp, 

(9) 

'J’r 

Bg  = R^  + Rp  [sin(a^  (“i)]. 

(10) 

P - 

^ ' 

sin (a,  + — ) 

' 2 

(11) 

(() 

il^l  = cos(a-|  + ^), 

(12) 

<f>e 

sin  (a,  + 

♦e  ■ - ■ 

(13) 

Compute  the  local  coordinate  constants  for  a conical  or  cylindrical  ring 

S = [{R2  - R^)^  + (Z2  - . 

(14) 

S cos  a, 

Bg  - R^  + 2 • 

(15) 

P - . P 

T sin  a-j  ’ 

(16) 

Rp  = 0 . 

(17) 

^1  “ B » 

(18) 

ip-j  = cos  a-j  , 

(19) 

i|<2  = 0 . 

(20) 
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5,  Generate  the  transformation  matrix  from  field  coordinates  to  grid  point  degrees 
of  freedom: 


■ 


-10 

.3 


‘A 

r5 


0 

1 

0 

-6 


-3 


S 

s^ 


0 — , 


0 

0 

1 

-3 

2S 


3 

1 


2S'“ 


10  -4 


-15  7 

?■  ? 


0 

0 

0 

0 


T ° 
0 0 


1 

2s 


-1 


— T 
2S'^ 


0 0 0 0 


0 0 


0 0 0 0 0 


-3 


0 0 
0 0 


. (21) 


10x12 
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6.  Generate  the  transformation  matrix  from  local  to  system  coordinates: 


[r,s]  = 


COS  a- 
0 

sin  a 
0 
0 
0 
0 
0 
0 
0 
0 
0 


- sin  a-|  0 


0 

cos  a- 
0 
0 
0 
0 
0 
0 
0 
0 
0 


0 0 
0 0 


0 

0 0 0 
-1  0 

0 1 


0 
0 

0 0 1 
0 0 
0 0 0 


0 
0 
0 
0 
0 
0 

0 cos  Oo 


0 0 


0 

0 

0 

0 

0 

0 

- sin  0.^ 
0 


0 0 0 sin  ao  0 cos  ao 


0 

0 

0 

0 

0 

0 

0 

0 

0 

-1 

0 

0 


0-  0 

0 0 


(22) 


12x12 


7.  Rearrange  the  transformation  matrix  [r^q]  such  that  the  membrane  and  flexure 
terms  are  reversed. 


= 


r (2) 

3q 

r 0) 

6q 


10  X 12 


(23) 


v;here  is  the  first  six  rows  of  [r^q]  and  is  the  last  four  rows  of 

fsqJ' 


4,87.12.3  Integral  Calculations 

The  method  used  to  compute  the  integrals  depends  on  the  geometric  shape  of  the  element. 
1,  Toroidal  ring  - basic  integrals 

There  are  six  basic  integrals  to  be  computed,  of  which  the  first  three  can  best  be 
evaluated  by  series  expansion,  but  the  last  three  require  numerical  integration. 
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i ].l  1 


j _ 


i . j+l+2i+l 


1+1  A i i+1  E 

■^p  y 0 ■ *^P  1=0  (,i+l+2i+l)  (2i+l)! 


I J 
^3 


i 


= n^hosm  - e (-1)  <^6 


” ^_ili+j+l+2i 


1=0  (j+l+2i)  (2i)! 


T j - R j+1  d4i 

^4  - ^ J.  B 


Ig'^  = Rp"^^^  ^'*’3  <ti'^'2sirn|)COS({) 

y n B 


d4)  , 


"6  T 


3>1  f 

^ n 


I^  = Rn^^^  / ^ As^d 


0 r 


d(p 


where 


B = R-|  - RpSina^  + RpSina-j  C0S(|)  + RpCOSa^  sine)), 

and  j = 0,  1 » . . . , 10. 

The  summations  in  12"^  and  are  carried  out  until  the  truncation  error  is  in- 
significant. 


(24) 


• (25) 


(26) 


(27) 


(28) 


(29) 


(30) 
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2.  Toroidal  ring  - required  integrals 

The  actual  integrals  required  can  now  be  defined  in  terms  of  basic  integrals. 

6^^  = (R^  - RpSina-j)!^'^  + KpCOSa-112*^  + RpSina^I^^  , 

62*^*  = cosa^  12'^*  + sina^I^'^*  , 

6^^  = cos^a^I^'^*  + sina-|COSa^  Ig'^'  + sin^a^Ig'^*  , 


6^'^  = cosa-jl^*^  - sina^l2’^  , 

= sina^cosa^  (Ig’^  - I^'^  ) + j(l  - 2sin^a-|)Ic'^  , 
6^^^  = cos^a-jlg’^  - sina-jcosa^ Ig*^  + sin^a^I^'^  , 


3-0 , 1 , , 


3.  Conic  ring  - basic  integrals 


= 

•/O 


^5  = "T+T  * ^ ” ^»^>****^^ 


^2'^  " f ^R^+|cosa^  ^ ^ 0,1,..., 10 


n 1 Ri+Scosa, 

‘2“  ■ HS7 


T 1 R,  Rt+Scosot 

‘2  ■ 5^-  - sk 


1 


. f Scosa, 


j _ “ 

i=0  (j+l+i) 


(-1)^  |-W~^ 


, j — 2, 3,. ..,10 


(31) 

(32) 

(33) 

..,10  (34) 

(35) 

(36) 

(37) 

(38) 

(39) 

(40) 

(41) 
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4.  Conic  ring  - required  integrals 


62'^  = sina-jli’^  , 


62'^  = sin^ail2'^  , 


•^4^  " * 


65'^  = sina^  i|^il2'^  , 


j ” 0,l,.i.jl0 


5.  Cylindrical  ring  - basic  integrals 


^ ■/ 

Jo 


S j+1 

= Vr 


j = 0,1,..., 10 


^2  = 7q  ("3+T^*  ^ 


6.  Cylindrical  ring  - required  integrals 


6^’  = 


62'^  = sina-ili'^  , 


62'^  = sin^ail2'^  , 


j = 0,1,. ..,10 


64^  = 65J  = 6gJ  = 0, 


(42) 

(43) 

(44) 

(45) 

(46) 

(47) 

(48) 

(49) 

(50) 

(51) 

(52) 

(53) 
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4.87.12.4  Elastic  Constants  Matrix  Calculations 


Form  elastic  constants  matrix 


[E]  = 


1 


M T 2 1 


^T^PT 


^T^PT 


2x2 


(54) 


4.87.12,5  Stiffness  Matrix  Calculations  (Subroutine  KT0RDR  of  Module  SMAl) 


1.  Define  the  constants 


A Rp  > 


(55) 


V = V, 


PT 


(56) 


c = Ep/E,  . 


(57) 


2.  Form  the  stiffness  matrix  terms  in  field  coordinates  as  shown  in  Tables  3,  4 and  5. 

3.  Transform  the  stiffness  matrix  from  field  coordinates  to  grid  point  degrees  of  freedom: 


[K]  = [r3q]'[K][rgq]. 


(58) 


4.  Transform  the  stiffness  matrix  from  local  to  system  coordinates: 


[K]  . [r„]’[K][r„], 


(59) 


5.  The  global-to-basic  coordinate  system  transformation  matrices  [T^. J are  expanded 
to  6 by  6 matrices: 


LT^] 


Ti  ! 0 

J 


I 


. i = 1,2. 


(50) 
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Table  3. 

Columns  1, 

2 and  3 

of  the  Symmetric  10  by  ”*0  Stiffness  Matrix 

for  the  T0RDRG  Element. 

Column 

I 

Column  2 

Column  3 

Row  1 

4.  2V  .0 

"■r  ^2 

.6°) 

Row  2 

+ 2V  .1 

^ r ^2 

»b‘6°  * “m<7  «? 

+ 6\) 

+2V  ^2  . .2x 

V ^2  ^ 63) 

Row  3 

+ 2V  .2 

^ r ^2 

Db(2V«;  + 26j)  + 0^4^  63 

Dg4(C6°  + 2V6j  + 6g 

-62) 

, 2V  -3  . .3^ 

+ ^ 62  - 63) 

‘^m^7  ^1  ^ r ^2  ^ ^3) 

Row  4 

«1 

+ 2V  .3 

^ r ^2 

Dg(6V6j  + 36g) 

Dg6(2C6j  + 3V62  + 6g) 

- 633) 

. 2^5  . 6^) 

P,  /C  .5  2V  .5 

^V\\2  '^1  r~  ^2  ^3^ 

Row  5 

°m(7  < 

4.  2V  ;;4 

r ^2 

Db(12V62  + 463)  + 6^ 

Dg2(12C62  + 16V6^  + 46^) 

-65) 

+ 2V  .5  . ,5^ 
+ jT«2  ^ 63) 

, n ,C  .6  . 2V  -6  , .6, 

^ °m^7  K~h  ■ 

Row  6 

^2 

Dg(20V63  + SaJ)  + 6^ 

DglO(4C63  + sva^  + 6g) 

+ 6^) 

+ 2j  6®  + 6®) 

^°m(7  ^ r ^3) 

Row  7 

6°) 

^ «5) 

Dm(J  6^  - 62) 

Row  8 

6?  . 

■M 

dA ^14^  K 

4^14 

+ V6°  - 

■«5) 

-62) 

+ V6^  + 65) 

Row  9 

n f2C  J 

4^14 

- 2V6j 

» 4> 

- 2V62  4'> 

3 4 

+ 2V62  ■*■ 

Row  10 

n f3C  .2 

-hi 

4 ^14^  3V63 

n ,3C  ^4  . V ^5 

°M'a"  ^1  A “^4 

+3V62  - 

4> 

+ 6J) 

+ 3va5  - 65) 
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Table  4.  Columns  4,  5,  and  6 of  the  Symmetric  10  by  10  Stiffness  Matrix  for  the  T0RDRG  Element. 


Row  4 


Row  5 


Row  6 


Row  7 
Row  8 


Row  9 


Row  10 


Column  4 


Column  5 


Column  6 


Dg9(4C6^  + 4V6j  + 6^) 

. n /C  .6  . 2V  ^6  . 

Dg12(6C6^  + 5V64  + 6g) 

. 2V  ,7  , ,7) 

Dgl5(8C6^  + 6V6|  + 6g) 


^ ^ r 

D,(^  . 6^) 


4 * 


+ V62  + 65) 

n ,2C  ,4  . V ^5 
°M^/T  ^1  ^ S’  ^4 

+ 2v4  + 4^ 


n 


+ 3V62  + 


5 

4 


Dgl6(9C6j  + evsj  + 6^) 

j.n  A®  4.  4. 

°M^^2  A ^2  ^3^ 

Dg20{12w5  + 7V64  + 6g) 

0^25(1606^  + 8V6j 

.6l) 

^ 4^  4) 

4.  n /C  .10  . 2V 

+ ^1  ^ TT 

^ 6;°) 

D„(J  6j  . 6^) 

“Hfl  «4  * ‘5) 

n rC  .4  . V .5 

^1  ^ 7T  *4 

“n(X  4*14 

+ V6^  + 6g) 

+ V62  + 65) 

n ,2C  .S  .\l  Jc, 

r,  /2C  ^6  . V .7 
%^ir  «1  ^ 7f  ^4 

+ 2V62  + 65) 

+ 2VS2  + 4^ 

_ ,3C  .6  . V 7 

^1  ^ A ^4 

n f3C  J . \l  f& 

°M^7T  ^1  ^ a-  ^4 

+ 3V62  + 65) 

+ 3V62  + 65) 
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Table  5.  Columns  7,  8,  9,  and  10  of  the  Symmetric  10  by  10  Stiffness  Matrix  for  the  T0RDRG  Element. 


Col.  7 Col.  8 Col.  9 Col.  10 

Row  7 


Row  8 

Dm(V6;  ■ 

h 6\) 

Dm(C6°  + 2V6j 
.62) 

Row  9 

+ 6^) 

D^(2C6]  . 3V6j 

D^(4C62  + 4V63 

.63) 

.6j) 

Row  10 

.63) 

D^(3C62  4V63 

D^(6C63  + 5V6j 

D»^(9C6: 

.6^) 

. 6^) 
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6.  The  stiffness  matrix,  [KJ,  is  partitioned  into  6 by  6 matrices: 


[K] 


r 

ni 

: »^i2 

^21 

4 

I 

^:L' 

(61) 


7.  These  6x6  partitions  are  transformed  to  local  coordinates: 


where  j = 1>  2,  and  p is  the  pivot  point,  p = 1 or  2. 


(62) 
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4.87.12.6  Mass  Matrix  Calculations  (Subroutine  MT0RDR  of  Module  SMA2) 

1.  Form  the  mass  matrix  in  field  coordinates; 


rrO 


[M]  = 2ttpH„ 


Symmetric 


(63) 


JO 


10x10 


2.  Transform  the  mass  matrix  to  grid  point  degrees  of  freedom; 


["]  ■ CFg,f[S][Fg,]  . 


(64) 


3.  Transform  the  mass  matrix  from  local  to  system  coordinates: 


[M]  = . 


(65) 


4.  The  mass  matrix,  [M],  is  partitioned  into  6x6  matrices,  and  these  6x6  partitions 
are  transformed  to  local  coordinates  (see  Equations  61  and  62). 


1 

i 
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4.87.12.7  Thermal  Load  Calculations  (Subroutine  TT0RDR  of  flodule  SSGl) 
1.  Compute  the  temperature  gradient  constants: 


(m) 


AT  (m)  _ j (m) 

^'l  ■ 'l  "o’ 

(66) 

AT2^"’^  = T2^"’^  - ’ 

(67) 

= 0 , 

(68) 

o 

II 

C\J 

(69) 

the  membrane  temperatures  at  point  i. 
thermal  strain  vectors: 

= AT.^"’^{A-F}  , 

(70) 

= AT2^"’^{ALF}  , 

(71) 

= AT^(^){ALF}  . 

(72) 

= AT2^^^(ALF}  , 

(73) 

where  {ALF}  is  a vector  of  length  two;  the  first  component  is  and  the  second  a^. 


3.  Form  the  matrices  of  integrals 


[F 


= 27tH^ 


0 6?  2s]  36? 


X^6i 


X,5’ 


^2  .3  .0  J .2  .3 

°4  °4  °4  °4  °2  °2  °2  °2 


®2  '^2 


(74) 


_ 2x10 
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[F, 


ME 


0) 


[F, 


FE 


(0) 


[F 


FE 


(D- 


27tH„ 

m 

S 

0 

L 4 

^1 

^4 

26^ 

^4 

3 

36:^ 

^4 

»i‘i 

®2 

X,«J 

4 

*2 

x,sf 
^2  _ 

(75) 

2x10 

2ttH? 

- 0 

0 

0 

0 

0 

0 

-26° 

-66] 

-126^ 

-206]“ 

T 

TT 

0 

0 

0 

0 

0 

-26] 

2 

-36] 

-46] 

-56] 

(76) 

2x10 

2nhlf 

“ 0 

0 

0 

0 

0 

0 

-2«] 

-66^ 

-126^ 

-206]“ 

t 

TIT- 

0 

0 

0 

0 

0 

-«4 

-2< 

-36] 

-’4 

-56] 

(77) 

2x10 

4.  Compute  the  thermal  load  vector  in  field  coordinates 

+ LFp£^°h^[E]{H^^°h  + [Fpp(^h^[E]{H^^°h  . 

5.  Transform  the  thermal  load  vector  to  grid  point  degrees  of  freedom: 


(78) 


6.  Transform  the  thermal  load  vector  from  local  to  system  coordinates: 

{Ff}  = [r^g]  (F^>  • 

7.  Transform  the  thermal  load  vector  to  basic  coordinates: 


(79) 


(80) 


(81) 
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where 


"T,  '0  I 0 ' 0 


1 


0 I I I 0 ] 0 


^ . I 

0 I 0 ; T2  ; 0 


(82) 


' ' 

0 0 I 0 I I 


and  [T^]  and  [I]  are  3 by  3 matrices. 

8.  These  vectors  are  added  to  the  overall  load  vector, 

4.87.12.8  Element  Force  and  Stress  Calculations  (Subroutines  ST0RD1  and  ST0RD2  of  Module  SDRl ) 

Element  stress  and  force  data  are  calculated  in  two  chases.  The  first  phase  (subroutine 
ST0RD1)  calculates  the  element  stiffness  and  stress  matrices.  The  second  phase  (subroutine 
ST0RD2)  calculates  the  element  forces  and  stresses  from  the  various  subcase  disolacement 
vectors.  Stresses  are  evaluated  at  both  ends  and  at  the  mid-span  of  the  element. 

Phase  1 calculations  are  as  follows: 

1.  Form  the  element  stiffness  matrix,  [K],  as  in  section  4.87.12.5. 

2.  Set  up  the  coordinates  of  the  three  stress  points: 


(83) 


3.  Compute  the  constants  X2,  X^  as  a function  of  the  stress  points  coordinates. 


a.  If  the  element  is  a toroidal  ring,  then: 


‘P 


(84) 
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(i)  _ 


sin  (a^  + ) 


R]  - Rp[sin  - sin  (a^  + 


i = 1.2,3, 


(85) 


(i)  _ . (i) 


X3  /Rp 


(86) 


b.  If  the  element  is  a cylindrical  or  conical  ring,  then: 


> (i)  = cos 

'2  + X(i ) cos  a-|  * 


(87) 


(i)  _ 


cos  a 


R-|  + X(i)  cos  a-| 


i = 1.2,3, 


(88) 


i,'”  ■ « ■ 


(89) 


c.  If  the  element  is  a shell  cap,  then: 


(i)  . 


cos  (a^  + ) 


R^  - Rp  [sin  - sin  (a^  + )]  i = 1,2,3  (90) 


(i)  _ 


= 1/Rp  . 


(91) 


^4^’^  = - l/(Rp^)  . 


(92) 


4.  Compute  the  stress  matrix  in  field  coordinates  for  the  three  stress  points 

as  shown  in  Tables  6 and  7.  Note  that  the  factors  H and  H'^/12  have  been  omitted  for  [S^'  '] 

and  respectively. 

If  the  element  is  a shell  cap,  then  modify  by: 


S12  = E^2  ■ ^11  • 


(93) 
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S22  = ^22  + Ei2  ’ 
^37  " ^^12  ’ 

S47  = 2 (E22  E-|  p)  , 

S53  . 3(E22  -4  E„) 

5.  Form  the  master  stress  matrix  in  field  coordinates: 


[S] 


sO) 

7(2) 

5(3) 


15  X 10 


(94) 

(95) 

(96) 

(97) 


(98) 
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Table  6.  Terms  in  Columns  1 Through  6 of  the  2 by  10  Matrix  and  the 

3 by  10  [§2^’^]  Matrix. 

The  [S^  ^ ] Matrix 


Col.  1 

Col.  2 

Col.  3 

Col.  4 

Col.  5 

Col.  6 

^2  ‘"12 

'll 

2E,lX(i) 

3E^,X^(i) 

n 'll 

(X  (^')e 
ix^  hi 

+X2^’^E^2>^^(i) 

+ X2^’^E^2^^(i) 

+ X (’^E 
'^3  ^12 

^2  *"22 

'12 

2Et2x'(i) 

3E^  2X^(1) 

Xi  t^2 

(X  ^’^E 
Ui  t^2 

+ X2^’^E22X(i) 

+ X2^’^E22x'(i) 

+ X2^^^E22X^(i) 

+ X (^’^E 
'^3  '"22 

+ X3^^^E22)X(i) 

I 

0 

0 

0 


The  [$2^^^]  Matrix 


0 0 

0 0 

0 0 

where  g(i)  ^ V E22  - ^£^2 


] 


5x10 


A2  t^2 


^2  t22 
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Table  7,  Terms  in  Columns  7 Through  10  of  the  2 by  10  Matrix  and  the 

3 by  10  Matrix. 

The  Matrix 


Col.  1 

Col.  2 

Col.  3 

Col.  4 

Row  1 

(X  (^')e 

Ui 

(X  (^')e 

'X  (’^E 

,Xi 

(X  (’‘)e 

IXi 

+ X3(^'^E^2)X^(i) 

Row  2 

(X  (’^E 
Ui  E^2 

(X  ^’^E 
Ui  t^2 

IX 

n '^12 

C\J 

UJ 

<< 

+ X3(^^E22)X^(i) 

+ X3^^^E22)X^i) 

- X3^’^E22)X^(i) 

+ X3^’^E22)X®(i) 

The  [82^^*^]  Matrix 

Row  1 

-2X2^^’^E^2^^(’^ 

- 3X2^'^E^2’<^(i) 

- 4X2^’^E^2’'^(’) 

- 5X2^’^E^2^'^(') 

- 2E^^ 

- 6E,^X(i) 

- 12E^^x2(i) 

- 20E^^  X^(i) 

Row  2 

2X2^’^E22X(i) 

3X2^’^E^2*^^(’^ 

4X2^’^E22X^(i) 

5X2^’^22X^(i) 

+ 2E^2 

+ 6E^2’<(’) 

+ 20E^2’'^(i) 

Row  3 

2g^’^X(i) 

3g^^^X^(i) 

4g^’^X^(i) 

5g^^’^X^(i) 

- 2X  ^ ^ ^E 
^^2  “'ll 

- 6X2^’^E,iX(i) 

- 12X2^’^E^iX^(i) 

- 20X2^’^E^^X^(i) 

- 6^11 

- 24E,^X(i) 

- 60E^^x2(i) 

= (X2^'^)^E 


22 


X4  t^2 


where 


and 
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6.  Transform  the  stress  matrix  to  grid  point  degrees  of  freedom 


[S]  = [S][f3^]  . 

7.  Transform  the  stress  matrix  from  local  to  system  coordinates 


(99) 


[s]  = [S]  [r^^] 


(100) 


8.  Transform  the  stress  matrix  to  global  coordinates 


[Sjg  = [S]  [T^2^  . 


(101) 


9.  Compute  the  thermal  stress  vector  for  the  three  stress  points: 

Xi 


(i) 


AT/"'^Hm(Eiiai  + E^2«2^  ^ 

ATi  ^"’^Hm(E2iai  + E22OI2)  + T"  ^^2l“l  ^22®2^ 


AT 


(f)  ^f 


r ■ TY  (^ll“l  ^ ^12“2)^  ^^2'  T75“  ^^11“1  " '^12“2 


(f) 


(E-nO,  + E-tpa^) 


= ( -at. 


(f)  f 


r ' T?  ^^2l“l  ^22“2^  ■ ^^2'  TZS  ^‘^2l“l  '^22“2 

h3 

ATi^  ^ 17^2^  ^^^^11  ■ ^12^°“!  ^^12  ■ ^22)“2^ 

+ AT2^^^  ^3  |A2^’^Xi[(E^^  - E^2)“i 
+ (E.|2  ” E22)oi2]  ■*■  tE-|.|0i.|  + ^12^2^^ 

where  AT.j^"’^,  AT2^"'^,  AT.j^^^  and  AT2^^^  are  as  given  in  Equations  66  through  69. 


(f)  "f 


H^Xi 


(Eo'iCx..  + EpoOio) 


(5  X 1) 

(102) 
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10.  Form  the  master  thermal  stress  vector 


Phase  2 calculations  are  as  follows: 


(103) 


1.  Extract  the  displacement  vector,  {A},  at  the  two  grid  points  from  the  global 
displacement  vector. 

2.  Calculate  the  element  forces: 


(PI  = [K]IA} 


(104) 


3.  Calculate  the  element  stresses  without  regard  to  thermal  loading: 


{o'}  = [S]g  IA>  (12  X 1] 


(105) 


4.  If  there  is  no  thermal  loading,  then 


{a}  = {o'} 


(106) 


5.  If  there  is  thermal  loading,  then 


j j I 0 ^ 1 + 15 


(107) 


for  j = 1 and  2 and 


J J 


(108) 


for  j = 3,  4,  5. 
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4.87.13  The  VISC  Element 

The  viscous  element,  VISC,  has  the  same  properties  as  the  R0D  element  (see  section  4.87.1) 
except  that  instead  of  generating  a contribution  to  the  stiffness  matrix,  the  element  generates 
a contribution  to  the  damping  matrix,  C^ggl* 

4.87.13.1  Input  Data  for  the  VISC  Element 

1.  The  ECPT/EST  entries  for  the  VISC  are: 

Description 

Scalar  indices  for  grid  noints  a and  b 

Local  coordinate  system  number  and  basic 
coordinates  of  grid  points. 

Extensional  damping  coefficient 
Torsional  damping  coefficient 

Given  N^,  X^,  Y^,  Z^,  Nj^,  X^,  and  and  the  CSTM  (Coordinate  System  Transformation 
Matrices)  data  block,  the  3 by  3 transformation  matrices,  [T^]  and  are  calculated 

using  utility  routine  TRANSD  (see  section  3.4.37). 

4.87.13.2  Damping  Matrix  Calculations  (Subroutine  BVISC  of  Module  SMA2) 


Symbol 
SIL^,  SI^ 


1.  Generate  {n}  as  in  Equation  2,  section  4.87.1.2,  and  generate  the  transformation 
matrices  [T^]  and  [Tj^]. 

2.  Calculate: 


[b,]  = c, 


"l"2 


"l"2 


"2"3 


"l"3 


"2"3 


(1) 
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[by,]  = C2 


The  6x6  damping  matrices  are: 


aa-* 


"ab^ 


"bb-* 


“ba^ 


"l"2 

"l"3 

"l"2 

4 

"l"3 

; "2"3 

"!  _ 

I 

0 

1 

0 : 

_ 

i 

0 

: V - i 

a r b 

i 

0 

“ - " - 1 

0 ; 

1 

1 

0 

1 

0 . 
_ 1 

b r a __ 

These  matrices  are  added  to  [B 

gg 
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4.87.14  Integral  Calculations  for  the  TRIARG,  TRAPR6  Elements 
Integrals  of  the  form 


I 


pq 


r^z^  dzdr  , 


(1) 


must  be  calculated  for  the  TRIARG  and  TRAPRG  elements  (see  sections  4. 87. 10. *1  and  4.87.11.3). 
The  integration  may  be  performed  for  any  integer  values  of  p and  q.  The  area  of  integration 
is  defined  by  the  two  lines  r = R^.  and  r = R^.,  and  by  the  two  lines  z = bj^^^r  + aj^^  and 

mn  mn 

This  integration  is  performed  by  the  integration  "driver”  subroutine,  F0RTRAN  function  HKI 
in  module  SMAl , FORTRAN  function  DMI  in  module  SMA2,  and  F0RTRAN  function  AI  in  module  SDR2. 

The  following  input  data  are  necessary  for  these  routines: 


P 

q 

(R) 

{Z} 


m,n 


- an  integer  that  defines  the  power  of  the  r variable. 

- an  integer  that  defines  the  power  of  the  z variable. 

- a vector  of  the  r coordinates  of  all  points  used  to  describe  the  area 
of  integration. 

- a vector  of  the  z coordinates  of  all  points  used  to  describe  the  area  of 
integration. 

- the  subcripts  of  R,  Z defining  one  of  the  lines  of  the  limit  of 

integration  (i.e.,  the  line  between  points  (r^^,  Z|^)  and  (r^^,  z^)). 

- the  subscripts  of  R,  Z defining  the  second  line  on  the  limit  of 

integration. 

- the  subscripts  of  R defining  the  other  two  lines  on  the  limit  of 
integration. 


In  the  following  paragraphs  F0RTRAN  names  of  functions  auxiliary  to  DKI  are  given.  The 
corresponding  F0RTRAN  function  names  auxiliary  to  functions  DMI  and  AI  can  be  found  in  sections 
4.28.8  and  4.46.8  respectively. 
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The  following  slopes  and  y-intercepts  are  calculated  in  functions  DKK  and  DKM 


mn 


mn 


Vk 

- 

- '^k 

'k 

''k  ’ 

R Z 

- R Z 

n m 

m n 

R 

- R 

n 

m 

Z - 

Z 

n 

m 

K - Rm 
n m 


A test  for  a vanishing  area  of  integration  is  made:  if  R^.  = Ry  then  Ip^  = 0 


if  a.  0 = a^^  and  b. . = then  I „ = 0. 
kJl  mn  kil  mn  pq 


(2) 

(3) 

(4) 

(5) 


The  formulas  for  evaluation  of  the  integrals  are  dependent  upon  the  values  of  p and  q 
as  given  in  the  following  sections. 
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4.87.14.1  Integral  Calculation  for  q ^ 0 and  any  p.  (Function  DKINT) 


Define  the  function 


where 


(6) 


n q + 1 - s + 1 

s=l  s 


for  t 0 , 

for  t = 0 > 


(7) 


(q+l+p+l-t)  _ (q+l+p+l-t) 

[-J — - r 4.-  n V t ] fof  (q+l+P+l-t)  ^ 0 


q + 1 + p + 1 - t 

In  (Rj/R^) 

C and  D are  calculated  in  functions  DKEF  and  DKJ  respectively 
The  integral  is 


(8) 


for  (q+l+p+l-t)  - 0 


(9) 


4.87.14.2  Integral  Calculation  for  p > 0 and  q < - 1 (Function  DK89) 


where 


1 P q 

fo(a,x.y)  = 2 pK-x)"*  d , 

-P  ' s=0 


(10) 


D = 


(p-s) !s! (p+l+q+l-s) 

Inlx+yR^I 

(p+l+q+im-q-2)! 


for  (p+l+q+l-s)  ^ 0 
for  (p+l+q+l-s)  = 0 


(11) 


and  a = i or  j. 
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The  integral  is 


^pq  ■ 2+q  " '*'2^‘''®mn  ’’mn^ 

4.87.14.3  Integral  Calculation  for  p<  0 and  q<  - 1 (Function  DKIOO) 
Define  the  function 


(12) 


.1  -p-q-3 

fo(otfX,y)  - -y  _ « \ ^ (“P“q“3)  ! D » 


(13) 


where 


D = 


(x^yR^)^~P~^~"^  {-yf 

(-p-q-3-s) ! s!  (-p-l-s)R  ("P"!"®.' 


{-y)'P‘^  In  ( 

x+yR^ 



) 

a 

T-P'T)T(-q-'2)! 


for  (-D-l-s)  ^ 0 


for  (-p-l-s)  = 0 


(14) 


and  a = 1 or  j. 

The  integral  is 


^pq  = FFq  ■ ^3(’’^mn‘''nin) 


(15) 
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4.87.14.4  Integral  Calculations  for  p > - 1 and  q = -1  (Function  DKJAB) 


Define  the  function 


f4(a,x,y) 


R/^’ln(|x+yR^|) 

ft 


where  f2  is  given  in  Equation  10. 
The  integral  is 


- ^4  - f4(i.anin>^nin^ 


(16) 


(17) 


4.87.14.5  Integral  Calculations  for  p < - 1 and  q = -1  (Function  DK219) 
Define  the  function 


f5(a,x,y) 


ln(|x+yR^|) 

(-p-l)R^^-P-‘'^ 


+ -F^rr)  1^3(0. x.y)  . 


where  f^  is  given  in  Equation  13. 
The  integral  is 


I 


pq 


(18) 


(19) 
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4.87.14.6  Integral  Calculations  for  p = -1  and  q = -1  (Function  DK211) 
Define  the  function 


0 , 


for  yR  = X 

a 


^[ln(|2y  R^|)]2  . 


for  (yRj^)^  = 

and  yR  X 
a 


-yR 


f6(a.x,y)  = ln|x|  ln|R^|-  I 1 , for  (vR^)^  < x^ 

t=l  ^ 


(20) 


^ [ln(|yR  1)]^  + 2 Lj-  [-^  , for  (yR 

^ a ^.^1  yK^  a 


)2<x2 


The  summation  term  is  calculated  until  its  value  becomes  less  than  1.0  x 10”^. 
The  integral  is 


^pq  ^6^^ ■ ^6^''’®inn’‘^mn^ 


(21) 
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4.87.15  The  FLUID2,  FLUIDS,  FLUID4,  AXIF2,  AXIFC,  AXIF4,  and  MFREE  Elements 


4.87.15.1  Input  Data  for  the  Fluid  Elements 


1.  The  ECPT/EST  entries  for  the  FLUID2  element  are: 


Symbol 


Description 


SIL^  , SIL^ 


Scalar  indices  for  the  connected  scalar  points 


N.  = 0,  r. , 2. , 0 


Reference  number  for  the  basic  coordinate  system  and  locations 
in  the  fluid  coordinate  systems. 


i = 1,  2 


P 


Fluid  density 


B 


Fluid  bulk  modulus 


n 


Harmonic  number 


2.  The  ECPT/EST  entries  for  the  FLUIDS  and  FLUID4  elements  are  identical  except  that  three 
and  four  points  are  used  respectively. 

3.  The  ECPT/EST  entries  for  the  MFREE  element  are  identical  to  the  FLUID2  element  except  that 
a weight  factor,  y,  is  used  instead  of  p and  B. 

4.  No  other  material  or  coordinate  system  data  is  necessary. 

5.  The  AXIF  elements  are  identical  to  the  FLUID  elements  at  this  stage. 

4.87.15.2  Matrix  Calculations  for  the  FLUID2  Element  (Subroutine  KFLUD2  of  Module  SMAl  and 


The  FLUID2  element  is  intended  to  model  a fluid  in  the  region  adjacent  to  and  including  the 
axis  of  symmetry.  The  volume  is  defined  by  two  circular  ring  points  in  the  fluid.  The  shape  is 
that  of  a disc  having  a conical  or  cylindrical  outer  boundary. 

1.  The  integral  parameters,  for  the  stiffness  matrix,  l2n^o’  ^2n,l’  ^2n,2’  ^2n+2,0 


Subroutine  MFLUD2  of  Module  SMA2) 


calculated  according  to  the  following  equations; 


n = 0 . 


(1) 
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If 


Z2-21 


< 10'®  : 


‘2n,0 


-1  2n 


‘2n,l 


If 


T2-r^ 


> 10 


-6, 


^2n.0 


(Z,  + Zn) 


2 ^ n 


hn,2  - ^ (^2  ^ ^1^2  ^ 


^2n+2,0  ^2n,0  (2^+2) '"l 


n > 0 


(2) 


D = 


^2-^1 

r2-r^ 


(3) 


2. 


3. 


^2n,0 

D 

r2n+l X 

2n(2n+l) 

V2 

■"l  ) 

^2n,l 

D 

- r2"+^z  - 1 

/2n+2  „2n+2)1  J 

2n(2n+l) 

|_r  Z2 

*^1  ^1  ' 

^2n+2/ 

V2  >^1  /J  i 

(4) 

^2n,2  " 

D J 

2n+l  2 

- r2"+lz2  - ( 

' 2D  \ 

L2n+2  _ 2n+2  \ 

2n(2n+l)  1 

1 ^2  ^2 

'^1  h \ 

,2n+2y 

V2  ^2  '^1  ^1  / 

n > 0 

D 

2n+3 

- ^r)]} 

^2n+2,0  " 

D 

r..,2n+3  „2n+31 

(2n+2)(2n+3)  L'2 

'1  J 

The  integral 

parameters 

for  the 

mass  matrix. 

^2n+2 

,0’  ^2n+2,r  ''2n+2,2 

are  calculated 

with  the  same  equations  as  above  except  the  value  k = 2n+2  is  substituted  for  k = 2n. 
The  transformation  matrix  [H^p]  is  defined  as: 
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x^-z^ 


(5) 


4.  The  stiffness  matrix  is: 


[Kj]  = 


Note:  if  n = 0,  a factor  of  2 is  used. 

5.  The  mass  matrix  is: 


[Hp  . 


^2n,0^ 

(2n2  L 

l2n,i) 

'2n,2  ♦ 

> 0 

^2n+2,0 

^2n+2,l 

_’^2n+2,l 

^2n+2,2_ 

[h"  ] 

pq 

(6) 


Note:  if  n = 0 a factor  of  2 is  used. 

6.  Various  tests  are  performed  for  the  element. 

If  |z2  - z-||  = 0 , the  calculations  are  skipped, 

if  r-j  = 0 or  r2  = 0,  a fatal  error  exists, 
if  p = 0,  a fatal  error  exists, 
if  B = 0,  the  mass  calculations  are  skipped. 
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4.87.15.3  Matrix  Calculations  for  the  FLUIDS  Element  (Subroutines  KFLUD3  of  Module  SMAl  and 
Subroutine  MFLUD3  of  Module  SMA2) 

The  FLUIDS  element  is  used  to  model  a volume  of  fluid  defined  by  three  connected  fluid  ring 
points. 

1.  The  three  connected  points  are  arranged  in  the  order  such  that  the  area  factor,  R,  is 
positive.  The  area  factor  is  defined  by  the  equation: 

R = (r2  - fi){z2  - z-|)  - (tj  - r^)(z2  " z-|)  • W 


2.  The  transformation  matrix,  [H  ],  is  calculated  as: 

pq 


i 


• '^3 


(^2  ■ ^3) 


(r3  - r2) 


"2)  ^Vl  - ’^l'3)  ('^1" 


(Z3  - z^) 


(ri  - r3) 


2 ‘ '"2^1 


(Zi  - Z2) 


(r2  - r^) 


(9) 


3.  The  integral  parameters,  Ij^^,  for  the  stiffness  matrix  are  the  sum  of  the  integrals  ’ ^kr 
for  each  of  the  three  sides.  The  points  defining  each  side  are: 

SIDE  POINTS  - a,b 

1 1.2 

2 2,3 

3 3,  1 

The  following  parameters  are  used  to  generate  the  integrals, 
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The  integrals  for  each  side  are: 
r 


^00 


3 log  — - Az 


"10 


("a  - 


^20 


^01 


— fifr^  - r^)  + ^ — (r^  ~ r^) 


1.32  iog;i-aAzH.|^(r2-r2) 


01) 


"n 


"02 


1 S^r  4 6 S (r^  * ^{f ) Wl-ri) 


„2^  ^ 1 /AZ 
"b 


3 3^ 

- "b) 


1 6^  log  ^ - B^Az  + 1 6(|ff  (r^  - r^)  + (rf  - r^) 

b 


4.  The  stiffness  matrix  is: 


= I 


"^^00 

"^^10 

"'‘01 

(n^+1 )I20 

n^I,, 

(12) 

"'hi 

(n  I(j2*l20^ 

The  matrix  terms  are  multiplied  by  two  if  n = 0. 
5.  The  mass  matrix  terms  are  simply: 


where 


= 4 ("1 " "2 " "3 " "i " hj 

9 

(13) 

= 2 , i = j. 

c.  . 

= 1 , i / j. 

and 


p 

A = ^ is  the  area. 
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6.  The  tests  performed  are: 

if  r^.  = 0 a fatal  error  exists, 

if  R = 0 the  routine  exits, 

if  p = 0 a fatal  error  exists, 

if  B = 0 the  mass  routine  exits. 

4.87.15.4  Matrix  Generation  for  the  FLUID4  Element  (Subroutine  KFLUD4  in  Module  SMAl  and 
Subroutine  MFLUD4  in  Module  SMA2) 

This  element  describes  an  axi symmetric  volume  of  fluid  defined  by  four  fluid  ring  points.  It 
is  actually  solved  by  subdividing  the  quadrilateral  cross  section  into  four  triangles  and  calling 
the  appropriate  FLUIDS  subroutine  for  each  of  the  triangles.  The  parameters  p and  B are  multiplied 
by  two  in  order  to  account  for  the  overlapping  volumes  and  reduce  the  matrix  terms. 

1.  A test  is  made  in  the  stiffness  routine  to  check  the  interior  angles  which  must  be  less 
than  180°.  For  each  of  the  four  triangles,  the  area  factor  K is  calculated  which  will  be 
positive  if  the  order  of  the  points  is  counterclockwise.  If  K is  negative  for  one  or 
three  out  of  the  four  triangles,  a fatal  error  exists. 

2.  The  triangles  and  their  three  connected  points  are: 


The  ECPT  data  is  moved  to  a temporary  storage  space  and  the  original  ECPT  is  used  for  the 
data  for  each  triangle. 

3.  Since  matrix  terms  are  only  created  if  one  of  the  connected  points  is  the  “pivot  point”, 
a test  is  made  and  the  FLUIDS  subroutine  is  not  celled  if  the  "pivot  point"  is  not  one 
of  the  three  points. 


Triangle 


Conrected  Points 
a b c 

1 2 3 

1 2 4 

1 3 4 

2 3 4 


I 


II 

III 

IV 


(14) 
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4.87.15.5  Matrix  Calculations  for  the  MFREE  Element  (Subroutine  MFREE  in  Module  SMA2) 


The  data  for  this  element  is  generated  by  subroutine  IFP4  from  the  free  surface  information 
and  is  not  available  as  a user-input  element.  The  element  describes  the  effect  of  gravity  on  a 
surface  in  between  two  fluid  ring  points.  In  a special  case,  the  surface  is  interior  to  a circle 
defined  by  one  fluid  ring  point. 


1.  If  the  two  connected  points  are  identical  (SIL-j  = SIL2),  the  special  case  exists  and  the 
equations  are: 


^-i 


irr 


2Y(2n  + 2) 


^•i 


vr 

2y 


n > 0 
n = 0 


(15) 


A factor  of  two  is  included  in  the  denominator  because  the  terms  will  be  calculated 
twi ce . 


2.  If  the  connected  points  are  unique,  the  equation  for  the  mass  matrix  is; 


r,,n.  _ ’^(>^2-»'l) 


3ri  + r2 


ri  + r2 


ri  + r2  3r2  + r^ 


n > 0. 


(16) 


The  values  are  multiplied  by  two  for  n = 0. 


4.87.15.6  Stress  Calculations  for  the  AXIF  Elements,  Phase  1. 

The  SDR2  calculations  for  these  elements  are  actually  the  calculations  of  the  velocity  of  the 
fluid  passing  through  a fluid  element. 

The  data  placed  on  the  ESTB  file  are: 

1.  Id  - Element  Id 

e 

2.  SILp  SIL2,-^(SIL3,  SIL^)  - Scalar  indices  of  connected  points 

3.  [S^]  - the  velocity-pressure  matrix 

The  [S^]  matrix  for  the  CAXIF2  element  is  a four  by  two  matrix  given  as  follows: 
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where 


(17) 


(18) 


and  are  velocities  at  r = 0,  and  are  velocities  at  the  midpoint  of  the  outer  edge, 
along  the  edge  and  circumferential. 

The  two  by  two  matrix  [S^],  for  the  center,  is: 


[s2]  = ^ 

c-*  p 


-1 


.Vl  ^2-^1. 


n = 0 


(19) 


[s'] 


-1  -1 


r^+r2  r^+r2 


0 0 


n = 1 


(20) 


[S^]  = [0]  n > 


(21) 


The  two  by  two  [S^]  matrix,  for  the  outer  edge  is; 


2l 


nAr  (nzAr  + rAz) 


nil 


^22) 


nzt 
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where 


Ar  = - T]  , 

Az  - “ z-j  , 

r = ^ (t2  + r^)  , 

2 ^ (^2  ^ ^ ’ 
n r 

I = \/  Ar‘  + Az  , 


(23) 


The  nine  by  three  [S^]  matrix  for  the  CAXIF3  element  is  calculated  with  the  following 
equations 


= 


[sj] 


l!s*] 


(24) 


The  three  by  three  [S^]  matrix  relates  three  pressures  to  the  three  velocities  in  the  basic 
coordinate  system  V^,  V^,  V^. 


0 1 0 


0 0 1 


(25) 


where  [Hqp]  is  a three  by  three  transformation  matrix  between  pressures  and  generalized 
coordinates  defined  in  Section  4.87.15.3. 

The  six  by  three  matrix,  [S^],  which  defines  the  velocities  at  each  edge,  tangential  and 
circumferential,  is: 
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[S^]  = 


(■12 


r,+r2 


‘•13 


‘•12 


ri+r2 


'•23 


'"2^'"3 


'•23 


"2^'^3 


"1 3 


’^l"'^3 


(26) 


where  = J (r.  - r/  + (z.  - z.)^ 

The  CAXIF4  element  is  compose(i  of  four  overlapping  triangles.  For  each  triangle  I,  II,  III 
or  IV  the  connected  points  1,  2,  3,  4 are  allocated  as  follows: 


Triangles 


Connected  points  a,  b,  c 


I 

II 

III 

IV 


1 2 3 
1 2 4 

1 3 4 

2 3 4 


For  each  triangle  calculate  the  3x3  [S^]  matrix  from  Equation  9 and  add  each  column  to  one  of 
four  columns  corresponding  to  the  connected  point.  The  results  are  divided  by  4 to  provide  an 
average  [S^]  matrix  for  the  quadrilateral. 

The  [S^]  matrix  for  the  quadrilateral  is: 
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where 


‘■12 


Ml 


"1 2 


ri+r2 


‘'23 


’^2'^ ’"3 


y (Tj  - r.)^  + (Zj  - Z.)^ ^ 


^23 


’"2'^*'3 


M4 


’^3^'^4 


The  resulting  [S^]  matrix  for  the  quadrilateral  CAXIF4  element  is 


[S.]  - 
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4.87.15.7  Stress  Calculations  for  the  AXIF  Elements,  Phase  2. 

The  element  identification  number,  the  indices  of  the  connected  points,  and  the  [S^]  matrices 
are  given  in  the  ESTB  table.  The  pressures  at  the  connected  points,  {P^-},  are  given  in  the  UGV 
matrix  data  block.  Depending  on  the  rigid  format,  the  pressure  values  are  either  real  or  complex 
numbers  and  associated  with  each  vector  of  pressures  is  a real  eigenvalue,  X;  a frequency,  f,  or 
a complex  eigenvalue,  P.  The  equation  for  velocity  is 

{V}}  = 1 [S^]  p,.  (29) 


where 


and 


{V} 

03  = 

7m 

03  = 

27rf 

03  = 

P 

03  = 

1.0 

[S,] 

is  the  vector  of  velocities  in  the  element. 

(real)  in  Rigid  Format  3 ({P^}  is  real) 

(real)  in  Rigid  Formats  8 and  11  ({P. } is  complex) 
(complex)  in  Rigid  Formats  7 and  10  ({P^. } is  complex) 
in  all  other  Rigid  Formats  ({P^-}  is  real) 
is  dimensioned  4x2,  9x3,  or  11x4 


for  the  CAXIF2,  CAXIF3,  and  CAXIF4  elements  respectively. 


4.87.16  The  $L|Z)T3  and  SL0T4  Fluid  Elements 

4.87.16.1  Input  Data  For  the  SL0T3  and  SL0T4  Elements 
1.  The  ECPT/EST  entires  for  the  SL0T3  are: 


Symbol 

SIL^,  SIL2,  SIL3 

z-j,  w. , i = 1,2,3 

P 

B 

M 

N 


Description 

Scalar  indices  for  the  connected  grid  points 

Radius  and  axis  location  and  slot  width  of  connected 
grid  points,  i. 

Densi ty 

Bulk  Modulus 

Number  of  Slots 

Harmonic  Number 


2.  ECPT/EST  entries  for  the  SL0T4  are  the  same  as  for  the  SL0T3  except  four  points  are  used. 
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4.87.16.2  General  Calculations  for  the  SL0T  Elements 


1.  The  overall  factor  for  the  number  of  slots  is: 


F = M , 2N  = 0,  M,  2M,  3M 


(1) 


F = ^ , 2N  0,  M,  2M,  3M 


(2) 


2.  The  SL0T4  element  is  composed  of  four  overlapping  triangles.  If  the  SL0T4  element  is  used, 
its  data  is  rearranged  to  the  SL0T3  format  and  the  following  operations  are  carried  out  for 
all  four  subtriangles.  A test  is  made  on  the  direction  of  the  vector  normal  to  the  surface 
of  all  four  triangles  if  the  number  of  negative  normal  vectors  (NNEG)  is  one  or  three,  a 
valid  quadrilateral  is  impossible  and  a fatal  error  is  set. 

4.87.16.3  Stiffness  Matrix  Generation  for  the  SL0T3  Elements 
1.  For  each  triangle  the  following  terms  are  calculated: 


2-A  = A. 


(3) 


C 


0 


(4) 


(5) 


2.  The  stiffness  matrix  terms  are: 


(6) 


where 


i = the  "pivot  point" 


j = 1,  2,  3 
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4.87.16.4  Mass  Matrix  Generation  for  the  SL0T3  Elements 


1.  The  following  coefficients  are  generated: 


2*A  = *2  = (r2  - r^)  (z^  - z^)  - (r3  - r^)  (z2  - z.j ) 


(7) 


w 


W.|  + W2  + W3  + w^. 


(8) 


where  i is  the  "pivot  point' 


FIA2I 

f = ^ 

ion  D 


0 ■ 120  B 


2.  The  mass  matrix  terms  are: 


M.j  = C^(w  + Wj)  j = 1,2,3  M' 


M^-j  = 2Cjj(w  + Wj)  j = 


where  i is  the  "pivot  point". 

4.87.16.5  Stress  Matrix  Calculations  in  the  SL0T  Elements  (Phase  1) 

The  velocities  in  the  SL0T  elements  are  calculated  ir  the  same  manner  as  stresses  in  a 
structural  element.  Phase  1 involves  calculating  pressure  field  - velocity  matrices  of  the  fluid 
passing  through  the  element. 

1.  The  data  placed  on  the  ESTB  file  are: 


Id^  - element  identification  number 
e 


Slip  SIL^.  - scalar  indices 


[S^]  - matrix  relation  between  pressure  and  velocity. 


2.  The  [S^]  matrix  for  the  CSL0T3  element  is  a five  by  three  matrix  given  as  follows: 
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ts,] 


where 


"2-"3 

N 

1 

CO 

N 

Z1-Z2 

A 

A 

A 

'"r’^3 

r2-ri 

A 

A 

A 

. _L 

1 

0 

^12 

£i2 

0 

1 

1 

£ 

^23 

^23 

1 

0 

_ 1 

*•23 

^13  _ 

j ‘M 

- ^ 

» ■ H' 

'l(z2  - Z3) 

'■2<"3  ■ 

(9) 


(10) 


The  five  rows  of  the  matrix  correspond  to  the  velocities  and  at  the  centroid  in  the 
r and  z direction  and  V-j,  corresponding  to  velocities  along  the  three  edges. 

The  CSL0T4  element  is  composed  of  four  overlapping  triangles.  The  velocity  at  the  inter- 
section of  the  triangles  is  calculated  to  be  the  average  of  the  velocities  in  each  sub- 
triangle. The  subtriangles  I,  II,  III  and  IV  are  each  given  three  of  the  four  points  1,  2, 
3,  4 as  in  the  following  chart: 


Triangle  Number  Connected  Points 


I 

II 

III 

IV 


The  [S^]  matrix  for  each  triangle  is  calculated  and  each  of  the  three  columns  is  inserted  in 
one  of  the  four  corresponding  columns  in  the  [S^]  matrix  for  the  quadrilateral.  For  instance 
the  first  column  of  [sj]  for  triangle  IV  is  inserted  in  column  2 of  the  [S^]  matrix.  Rows 
four  through  seven  of  the  [S^]  matrix  are  recalculated  to  correspond  to  the  sides  of  the 
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quadrilateral.  The  resulting  matrix  for  the  CSL0T4  element  is: 


tsj]  • 


First  2 rows 

■ T 1 tsS3 

1 

1 

P^12 

CVJ 

Q. 

1 

. T 

P*'23 

P-^23 

1 

1 

1 ^ 
I ^ 

‘d 

P^34 

1 

1 

P«-41 

P*’41 

(11) 


where 


«.  = J (r  . - r.)^  + (z.  - z.  )'^ 

ij  J ' 


4.87. Ifi. 6 CSL0T1  Element,  Phase  2 

The  data  calculated  above  are  extracted  from  the  ESTD  data  file  and  the  corresponding 
pressures,  p^. , are  extracted  from  the  UGV  data  block.  Associated  with  each  vector  is  a real  or 


complex  number.  The  general  equation  for  velocity  in  the  element  is: 

(»)  ■ ;[S,](P,) 


(12) 


where 


{V  } 


and 


is  the  vector  of  velocities  in  the  element 
0)  = /jT[  (real)  in  Rigid  Format  3 ({p,j}  is  real) 

0)  = 27Tf  (real)  in  Rigid  Formats  8 and  11  ({p^. } is  complex) 

(complex)  in  Rigid  Formats  7 and  10  ({p.|}  is  complex) 

(real)  in  all  other  Rigid  Formats  ({p.j}  is  real) 

has  dimensions  7x3  or  8x4  for  the  CSL0T3  and  CSL0T4  elements  respectively 


0)  = p 
03  = 1.0 
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4.87.17  Solid  Polyhedra  Elements,  TETRA,  WEDGE,  HEXA1  , HEXA2 

These  elements  define  three-dimensional  shapes  with  four  points  defining  a tetrahedron 
(TETRA),  six  points  defining  a wedge  (WEDGE),  and  eight  points  defining  a hexahedron  (HEXAl  or 
HEXA2).  Constant  strain  and  stress  is  assumed  in  each  tetrahedron.  The  wedge  and  hexahedron 
elements  are  automatical ly  fabricated  from  tetrahedron  elements. 


4.87.17.1  Input  Data  for  the  Solid  Polyhedra  Elements 
1.  The  ECPT  entries  for  the  solid  elements  are: 


Symbol 

Id 

M 

SIL.,  i = 1,  N 

CS.,  X.,  Y.,  Z.j 
i = 1,  N ) 

T 

2.  Coordinate  System  Data 


Descript^*on 

Element  identification  number 

Material  identification  number 

Scalar  indices  of  connected  grid  points. 

N = 4,  6,  or  8 

Coordinate  system  identification  number  and 
location  in  basic  coordinates  of  connected 
grid  points 

Average  element  temperature 


The  numbers  CS^. , X^. , Y^. , and  Z^.  are  used  to  calculate  3x3  global-to-basic  transforma- 
tion matrices  [T^.]  for  the  connected  points.  Subroutine  TRANSD  or  TRANSS  is  used. 

3.  Material  Data 


Subroutine  MAT  is  used  to  generate  the  following  material  coefficients: 

E Modulus  of  elasticity 

G Shear  modulus 


V Poisson's  ratio 

p Mass  density 

a Thev-'mal  expansion  coefficient 

Tg  Reference  temperature 
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4.87.17.2  Basic  Equations  for  the  TETRA  Element 

1.  The  matrix  which  transforms  generalized  displacements  to  grid  point  displacements  is 
[Hqy]  where 


= 


1 


1 X2  Y2  Z2 


1 X3  Y3  Z3 

1 X4  Y4  Z4 


(1) 


This  matrix  is  inverted  to  produce  the  matrix  and  the  determinant,  D, 

The  value  of  the  determinant  is  checked  to  see  if  it  is  consistent  with  the  determinants 
of  the  other  tetrahedra  being  used  in  a single  element. 


2.  The  material  coefficients  E,  G,  and  v are  used  to  generate  the  6x6  matrix  [G]  where 
the  nonzero  terms  are: 


‘"11  ° ^22  ■ *’33  ~ 


E (1  - v) 

(1  + v)  {1  - 2v) 


(2) 


G^2  = ^21  - G^3  - 

®31  " ^23  " *^32  " 


e;  V 

(1  + v)  (1  - 2v) 


(3) 


3. 


*"44  " *"55  ■ *"66  ' 


(4) 


The  four  6x3  matrices  [c’]  which  transform  displacements  at  points  to  strains  are 
generated  using  elements  of  the  matrix:  H-|p  H-^2’  The  equation  is: 
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CC’]  = 


^4i 


0 H4.  H3. 


>^li 


(5) 


4.87.17.3  Stiffness  Matrix  Generations  for  the  TETRA  Element  (Subroutine  KTETRA  of  Module  SMAl) 


The  3x3  partition  of  the  element  stiffness  matrix  (in  global  coordinates)  connecting 
points  i and  j is: 

CK^-j]  = [C']^  [G]  [CJ]  [T.]  . 

where  [T^.]  and  [Tj]  are  the  3x3  global-to-basic  transformation  matrices.  The  matrices  are 
produced  for  point  j corresponding  to  the  pivot  point  in  the  matrix  assembly  process. 

4.87.17.4  Mass  Matrix  Generation  for  the  TETRA  Element  (Subroutine  MS0LID  of  Module  SMA2) 


The  mass  matrix  for  each  point  of  the  tetrahedron  is  formed  as  a 6 x 6 matrix  and  inserted 
on  the  diagonal  of  the  overall  mass  matrix.  Its  equation  is: 


= 


m/4 


m/4 


-0- 


m/4 


-0- 


(6) 


where  m = 1/6  p|D|.  (D  is  the  determinant  of  the  [H^^]  matrix.) 

4.87.17.5  Thermal  Load  Generation  for  the  TETRA  Element  (Subroutine  TETRA  of  Module  SSGl ) 


The  3 X 1 thermal  load  vector  {P^. } for  point  i of  the  tetrahedron  is: 
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{Pi)  = [T^f  [C.f  [6]  , (7) 


and  T = 1/4  (T^  + T^  + T^  + T^)  is  the  average  temperature  of  the  four  connected  points,  given 
in  data  block  GPTT. 

4.87.17.6  Stress  Calculations  for  the  TETRA  Elements  (Subroutines  SS0LID1  and  SS0LID2  of 
Module  SPR2) 

The  stress  is  calculated  in  two  phases.  Phase  I is  used  to  calculate  the  transformation 
matrices  between  displacements  and  temperatures  to  stresses.  Phase  II  uses  the  actual  displace- 
ments and  temperatures  to  calculate  stresses. 

1.  In  Phase  I,  the  following  calculations  are  performed: 


CO 

CVJ 

II 

•r— 

1 — 1 

H— 

1 1 

1 — 1 

0 

1  1 

1 — 1 
CD 
1 1 

II 

1 — 1 

00 
1 1 

(9) 

{S^}  = [GJ  {a}  , 

(10) 

2.  In  Phase  II,  the  3 x 1 displacement  vector,  {u^.},  for  each  point,  i,  is  extracted  from 
the  {Uq}  displacement  vector  and  the  average  temperature,  T,  is  extracted  from  the  GPTT 
data  block.  The  stresses  are  calculated  as  follows: 
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The  hydrostatic  pressure,  P,  and  the  octahedral  shear  stress,  Tq,  are  calculated  by 
the  equations: 


P = - 1/3  (O^ 


(13) 


Tn  = 1/3  [2a^  - a,  - 0,)  + 2o„  (a„  - a,)  + 2a,^  + 6 (t  ^ + x^}  + xh^^'^ 


X ' X y z'  y y z'  z 


yz  xz  xy 


(14) 


4.87.17.7  Basic  Equations  for  the  WEDGE,  HEXAl , and  HEXA2  Elements 

The  wedge  element  is  connected  to  six  grid  points  and  is  divided  into  four  tetrahedron  sub- 
elements. The  connected  points  assigned  to  each  tetrahedron  are: 


TETRA  Number 
I 

II 

III 


Connected  Points 

12  3 6 

12  6 5 

14  5 6 


The  HEXAl  and  HEXA2  elements  are  connected  to  eight  grid  points  and  are  subdivided  into 
five  tetrahedra  for  the  HEXAl  element  and  ten  overlapping  tetrahedra  for  the  HEXA2  element. 
The  connected  points  original  to  each  tetrahedron  are: 


4.87-203  (8/1/72) 


MODULE  FUNCTIONAL  DESCPIPTIONS 


Subelement 

Number 

Cornected 

Points 

HEXAl 

HEXA2 

I 

I 

1 

2 

3 

6 

II 

II 

1 

3 

4 

8 

III 

III 

1 

3 

8 

6 

IV 

IV 

1 

5 

6 

8 

V 

V 

3 

6 

7 

8 

VI 

2 

3 

4 

7 

VII 

1 

2 

4 

5 

VIII 

2 

4 

5 

7 

IX 

2 

5 

6 

7 

X 

4 

5 

7 

8 

The  basic  procedure  used  with  these  elements  is  to  extract  the  data  associated  with  each 
tetrahedron  subelement  and  go  to  the  tetrahedron  calculations.  In  subroutine  KS0LID  of  Module 
SMAl , the  tetrahedron  calculations  and  matrix  insertion  is  done  by  calling  subroutine  KTETRA. 

In  subroutine  MS0LID  of  Module  SMA2,  the  tetrahedron  calculations  and  insertion  are  done  in  an 
internal  subroutine.  In  subroutine  S0LID  of  Module  SSGl , the  tetrahedron  subroutine  STETRA  is 
used  to  calculate  and  invert  the  thermal  loads.  In  subroutines  SS0LID1  and  SS0LID2  of  Module 
SDR2,  the  tet»^ahedron  calculations  are  done  with  an  internal  subroutine  and  the  results  are 
summed  together  to  produce  average  stresses. 

4.87.17.8  Stiffness  Matrix  Calculations  and  Geometry  Checks  for  the  WEDGE,  HEXAl , and  HEXA2 
Elements  (Subroutine  KS0LID  of  Module  SMAl) 

With  these  elements,  the  order  of  the  connections  and  the  resulting  geometry  is  critical 
for  reasonable  results.  Three  basic  criteria  must  be  met: 

1.  If  the  connections  are  correct,  the  calculated  volumes  for  all  tetrahedron  subelements 
will  be  consistent.  When  the  subroutine  is  called  for  the  first  time  for  each  element, 
all  of  the  tetrahedra  are  processed  to  produce  the  signs  of  the  determinants  of  the 
[Huq]  matrices.  The  signs  must  be  either  all  positive  or  all  negative,  or  an  error 
is  indicated. 
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2.  The  order  of  the  connected  points  is  checked  by  calculating  the  normal  vectors  to  the 
top  and  bottom  faces  assuming  a right-hand  rule.  The  normal  vectors  must  not  have  a 
negative  scalar  product. 

3.  The  wedge  has  three  quadrilateral  faces  and  the  hexagonal  elements  have  six  quadrilateral 
faces.  Subroutine  KPLTST  is  used  to  check  these  faces.  The  points  must  not  deviate 
from  being  a plane  by  more  than  10  percent. 


Wedge 

Face  Number 
1 
2 
3 

Hexahedron 
Face  Number 
1 
2 

3 

4 

5 

6 


Points  on  Face 
1,  2,  5,  4 

1,  4,  6,  3 

2,  3,  6,  5 

Points  on  Face 
1,  2,  3,  4 

1,  2,  6,  5 

2,  3,  7,  6 

3,  4,  8,  7 

4,  1,  5,  8 

5,  6,  7,  8 


In  the  KS0LID  subroutine,  each  element  is  tested  for  geometric  consistency  when  the  pivot 
point  equals  the  first  connected  point.  In  any  event,  the  ECPT  data  is  converted  to  the  TETRA 
format  for  as  many  times  as  necessary,  and  subroutine  KTETRA  is  called  each  time.  If  a HEXA2 
element  is  being  processed,  a flag  is  set,  so  the  KTETRA  subroutine  will  divide  the  stiffness 
of  each  tetrahedron  by  two. 

4.87.17.9  Mass  Matrix  Generation  for  the  WEDGE,  HEXAl  and  HEXA2  Elements  (Subroutine  MS0LID  of 
Module  SMA2) 

The  mass  calculations  involve  the  calculation  of  the  total  mass  of  each  tetrahedron  in  the 
element  and  assigning  one-fourth  of  the  mass  to  each  of  the  four  points.  If  a HEXA2  element  is 
used,  the  mass  of  each  tetrahedron  is  divided  by  two. 
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4.87.17.10  Thermal  Load  Generation  for  the  WEDGE,  HEXAl  and  HEXA2  Elements  (Subroutine  S0LID  of 
Module  SSG2) 

This  subroutine  arranges  the  ECPT  data  into  the  TETFA  format  for  each  tetrahedron  in  the 
element.  Subroutine  TETRA  is  called  each  time  to  calculate  the  thermal  loads  and  insert  them 
in  the  load  vector.  If  a HEXA2  element  is  used,  a flag  is  set,  so  that  the  TETRA  routine  will 
divide  the  results  by  two. 

4.87.17.11  Stress  Data  Recovery  for  the  WEDGE,  HEXAl  and  HEXA2  Elements  (Subroutines  SS0LID1  and 
SS0LID2  of  Module  SDR2) 

The  first  phase  of  stress  recovery  involves  the  calculation  of  displacement-stress  matrices 
[Sie]  and  the  temperature  stress  vector  A 6 x 3 matrix  is  generated  for  each 

connected  point.  Its  equation  is; 

[S,e]-S  S 05) 

a = 1 

where  [5^]^^  is  the  matrix  corresponding  to  tetrahedron  number  a associated  with  point  i,  and  N 
is  the  total  number  of  tetrahedra  in  the  element.  The  matrices  are  described  in  Section 

4.87.17.6.  As  each  tetrahedron  is  processed,  the  four  [S^]  matrices  and  the  {S^}  vector  are 
added  to  the  appropriate  [S^g]  matrices  for  the  whole  element.  The  TETRA  element  is  also  pro- 
cessed by  this  code  with  N = 1.  The  thermal  stress  vectors  are  added  by  the  equation: 

In  Phase  II  of  stress  recovery,  the  logic  is  given  in  Section  4.87.17.6.  The  code  is 
identical  for  all  elements,  with  the  only  difference  being  the  number  of  connected  grid  points. 


4.87-206  (8/1/72) 


STRUCTURAL  ELEMENT  DESCRIPTIONS 


4.87.17.12  Thermal  Analysis  Calculations  for  the  Solid  Elements 

The  "stiffness"  matrix  terms  for  the  solid  elements  are  generated  by  subroutines  KS0LID 
and  KTETRA  of  module  SMAl . All  of  the  solid  elements  (TETRA,  WEDGE,  HEXAl , and  HEXA2)  use  the 
KTETRA  subroutine  to  calculate  and  insert  the  final  matrix  terms.  For  thermal  analysis,  the 
following  operations  are  performed: 

1.  The  geometry  is  processed  and  the  matrix  [H^^]  and  the  determinant,  D,  are  produced 
for  either  structure  or  thermal  analysis.  See  Section  4.87.17.3. 

2.  For  thermal  analysis,  subroutine  HMAT  is  used  with  INFLAG  = 3 to  produce  the 


following  data: 


•'xx  Vy  ''yz  ^zz 


3.  The  material  matrix  [G^]  is  calculated  where: 

0 
0 
0 
0 


[Ge]  = 


0 

^x 

^z 


^y  Scz 


yy 


yz 


ZZ 


4.  The  matrix  terms  associated  with  the  pivot  point  (j)  are: 

'*i2  ^j3  ^J4)^ 

• r “J,)' 

The  vector  is  the  column  of  the  [H^q]  matrix  associated  with  point  j.  The  values 

Kji  are  inserted  in  the  KGG  matrix  in  column  number  = SIL^,  and  row  number  = SIL^. . 

The  "mass"  matrix  for  the  heat  transfer  analysis  is  generated  by  subroutine  MS0LID  of  module 
SMA2.  The  thermal  capacity  coefficient,  Cp,  is  returned  from  subroutine  HMAT.  Each  subelement 
tetrahedron  is  used  to  calculate  terms,  which  are  placed  in  the  BGG  matrix.  For  each  point,  i, 
on  each  tetrahedron,  the  value  is: 

B =Cp.|D| 

^*i  ~S  ’ 


where  D is  the  determinant  of  the  [H  ] matrix.  Results  for  the  HEXA2  element  are  divided  by  2. 

U v-| 
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The  "stress"  data  recovery  for  heat  transfer  analysis  is  performed  by  subroutines  SDHTFl , 
SDHTFF,  and  SDHTF2  of  module  SDR2.  In  Phase  1,  the  matrix  K and  the  matrix  C are  calculated 
where  K is  the  3x3  material  matrix  and  C^  is  a 3 by  number  of  points  matrix.  For  the 
tetrahedron: 

^21  ^22  ^23  ^24 

”31  “32  ^33  ”34 

^41  ^42  ^43  *^4^ 

For  the  WEDGE,  HEXAl , and  HEXA2  elements,  the  [C]  matrix  is  calculated  for  each  subelement. 
The  column  corresponding  to  each  point  of  the  tetrahedron  is  added  to  the  column  of  the  C^  matrix 
corresponding  to  that  point  in  the  whole  element.  The  results  a^'e  divided  by  the  number  of 
subelements. 

In  Phase  2,  the  temperature  gradient  vector  and  flux  vector  are  calculated  with  the  equations 

{AT}  = [C]  {u> 

(q)  = -[K]{AT>, 

where  (u)  is  the  vector  of  temperatures  of  the  connected  points. 


[Ce]  = 


4,87-207a  (5/1/73) 


STRUCTURAL  ELEMENT  DESCRIPTIONS 


4.87.18  The  HBDY  Elements 
4.87.18.1  Input  Data 


The  boundary  condition  element  HBDY  produces  matrix  terms  only  in  a heat  transfer  analysis. 
The  following  data  will  be  needed  from  the  ECPT  table. 


Symbol 


Description 


ID 

I FLAG 

SIL.,  i = 1,  2 ...  8 

Vi,  V^,  V3 

Mat  Id 
AF 


G 

a 


i = 1 , 2 . . . 8 
To 


Element  ID 

Element  Type  Flag 

Scalar  indices 

Orientation  vector 

Material  identification  number  for 
MAT4  or  MATS  data 

Area  factor 

Emissivity  coefficient 

Absorbtivity  coefficient 

Radii  of  elliptic  cylinder 

Coordinate  systems  and  location  coordinates 
of  connected  grid  points;  1-4  are  element 
points,  5-8  are  points  in  fluid 

Average  element  temperature  for  initial 
estimate 


The  meaning  of  the  data  for  various  values  of  IFLAG  are; 


IFLAG 

Element  Type 

N=  Number  of 
Gridpoints 

AF 

1 

point 

1 

area 

2 

line 

2 

width 

3 

revolution 

2 

— 

4 

triangle 

3 

— 

5 

quadrilateral 

4 

— 

6 

elliptic  cylinder 

2 

circumference 
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4.87.18.2  Stiffness  Matrix  Calculations  (Subroutine  KHBDY  of  Module  SMAl) 

For  the  revolution  elements  x^.  > 0 and  = 0,  otherwise  there  is  illegal  geometry.  The 
matrix  produced  will  be  N x N.  The  material  coefficient,  H,  is  extracted  from  the  material  data 
block  with  INFLAG  = 1,  and  T^  as  the  average  temperature.  The  [C]  matrix  for  each  element  type 
is  given  in  the  following  table: 


I FLAG 


1 

2 

or  6 


H(AF) 


H(AF)jl 


2 1 
1 2 


(3x-|  + X2)  (x-j  + X2) 

(x-|  + X2)  (x-j  + 3X2) 


Ha 

24 


2 1 1 
1 2 1 
1 1 2 


2(a2  + ^3  + a^)  (a3  + a^) 


(ao  a.) 


H 


or  »- 


where 


(32  + 83) 

(a,  + a,) 


SYM 


2(a-j  + 83  + a^)  (a-|  + a^)  \a-|  t 03 

2(a^  + 83  + a^)  (a^  + 33) 

2(a^  + 83  + 83) 


C^-j  “ ^ [(1  (^1  + 85  + S'j  + a^)  - (a^  + a^)]. 


ij'  '"1  ^ “2  ^ “3  "4' 


A - i “ J 
)0  i ^ 3 


The  length  Z appears  only  when  N = 2 or  6,  and: 

I = [(X3  - + (y2  - + (Z3 

The  factor  a is  twice  the  area  of  a triangle  (N  = 3). 
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Let 

a = |(r*2  - ^l)  X (Tj  - 'r2)l 

The  factors  are  two  times  the  area  of  the  triangle  which  does  rot  touch  vertex  i of  a 
quadrilateral . 

3l  = I C^3  - "^2^  ^ ^"^4  ■ ^3^1 

^2  " ^ ^4^1 

^3  = H*"!  • '■4)  X (P2  - r^)| 

^4  = 1(^2  - r^)  X (P3  - P2)| 

The  C matrices  are  placed  in  the  "stiffness"  matrix  using  the  following  matrix  equation: 

{P}=  [K]  {u}, 
or: 

I 
I 

c i -c 

I 
I 

-c  i c 

In  the  octimal  code,  only  the  columns  corresponding  to  a "pivot  point"  u^  are  generated. 
The  terms  K..  are  inserted  for  every  point  u;  in  the  element  SIL  list.  The  terms  are  placed  in 

J * 

the  SIL^.  column  of  the  matrix. 

4.87.18.3  Capacity  Matrix  Calculations  for  the  HBDY  Element  (Subroutine  MHBDY  of  Module  SMA2) 

The  heat  capacity  matrix  is  calculated  much  like  a mass  matrix  and  is  placed  in  matrix  BGG 
in  the  SMA2  module.  The  material  coefficient  Cp  is  extracted  from  the  material  tables  using 
subroutine  HMAT  with  INFLAG  = 5.  The  scalar  terms  for  each  point  are: 
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I FLAG 

B 

1 

B^1  = AF*Cp 

2 or  6 

r>  - D _ AF*Cp*^, 

“ ®22 

3 

®22  ^ (2^2  ^ ^1  ^ 

4 

° Hz  ° ®33  ° 

5 

B.,  = i = 1,  4 

11  

where  a-^  = + a^  + + a^  and  the  a values  are  defined  in  the  previous  section. 

One-half  the  value  of  the  terms  are  placed  in  the  BG6  matrix  in  positions  row  = column  = SIL^. . 
If  the  corresponding  boundary  layer  point  SIL^._^^  is  nonzero,  the  value,  1s  also  placed  in 

the  row  and  column  corresponding  to  SIL^.^^. 

4.87.18.4  Convective  Heat  Flux  Recovery  for  the  HBDY  Element  (Subroutines  SDHTFl , SDHTFF,  and 
SDHTF2  in  Module  SDR2) 

Phase  1 

Subroutine  SDHTFl  rearranges  the  EST  data  and  calls  the  HMAT  routine  for  material  property,  H. 
The  output  of  Phase  1 consists  of  the  following  data: 

Word  Description 

1 Element  Id 

2-9  Scalar  indices  of  connected  points 
10,11  BCD  words  for  "HBDY" 

12  Number  of  generalized  coordinates  (=1) 

13  NP  - Number  of  connected  points  (=8) 

14  The  value  of  H 

22-29  The  eight  C values 
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Subroutine  SDHTFF  calculates  the  nonzero  values  of  C and  the  value  K with  the  following 
equations 


I FLAG  = 1 


.C5  = 1.0 


K = A^H 


IFLAG  = 2 or  6 


I FLAG  = 3 


^1  ^2  "^5  “^6  " 2" 


^1 " 3*- 


C,  = — (2x,  + X, ) = -C6 
3r  ' 

K = irrilH, 

where  j (x-|  + X2) 

IFLAG  = 4 C,  =C2  = C3  = -C5=-Cg  = -C7  4 
K = AH, 

where  A = j | (F2  - r, ) x (F3  - r^ ) | 

IFLAG  = 5 = C2  = C3  = = -Cg  = -Cg  = = -Cg  = |- 

K = AqH,  where  ^ I(area  of  each  triangle) 

Phase  2 

Subroutine  SDHTF2  calculates  the  temperature  difference  and  total  heat  flow  across  the 
boundary  layer  with  the  equation 

AT  = {C}^  {u} 
q = -KAT, 
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where  K and  {C}  are  the  Phase  1 outputs  and  {u}  is  the  vector  of  temperatures  given  in  the  UGV 
vector  in  the  SIL^^  positions. 

4.87.18.5  Area  Factor  Calculations  for  the  HBDY  Element  (Utility  Subroutine  HBDY) 


For  purposes  of  radiation  calculations,  thermal  load  generation,  and  data  recovery,  the  HBDY 
elements  are  processed  by  subroutine  HBDY.  The  input  data  consists  of  the  EST  entry  for  each 
element.  The  output  is  dependent  on  the  option  as  follows: 


a)  Option  = 1 


b)  Option  = 2 


Word 

Symbol 

1 

ID 

2 

^T 

3 

e 

4 

Not  used 

5-8 

SILi 

9-12 

<^1 

Word 

Symbol 

1 

ID 

2 

3-6 

SILi 

7-TO 

11-13 

14-16 

"2 

The  output  quantities  are  calculated  as  follows: 

I FLAG  = 1 


n,  = V 

1 ITT 


= AF 


A^  = Af 


Description 
Element  ID 
Total  area 
Emissivity 

Scalar  indices 

Fraction  of  total 
with  each  point 


area  associated 


Description 

Element  ID 

Total  area 

Scalar  indices 

Area  factors 

Normal  unit  vector 

Second  normal  vector  for 
I FLAG  = 6 only 
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I FLAG  = 2 


I FLAG  = 3 


I FLAG  = 4 


ELEMENT  DESCRIPTIONS 
R = 

Jl=  |R1 
= AF*S, 

i ; 


Ar  = 
Az  = 


r 


z 


1 

1 


^ = T ^^*"1  * 

^2  “ T ^^'"2  * '"l  ^ 

Ay  = A^  + A2 
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^1  ' 

= Ag  = A3  - j At 

IFLAG  = 5 


^12' 

= T2  - 

^13' 

' ""s  ■ *^1 

^24  ’ 

= ?4  - ?2 

Z ^ 

= D^3  X D24 

1— 

< 

= J |z| 

"1  = 

z 

■ |Z| 

^23  ' 

= j |D^2  ^13| 

CVJ 

< 

'-J  ^iz\ 

^1 

= ^ (At  + A^^g) 

CVJ 

< 

' r + A2,3) 

= 1 (2A,  - A4,2) 

> 

= ^ (2Aj  - A213) 

I FLAG  = 6 


X = 

' ''2  ■ *’i 

1 = 

= |X| 

At  = 

= A^*J,  - Option  1 

or  Aj  = 

= 1 - Option  2 

^ = 

' ^2  ° ? ^T 

y = 

= V X X 
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2 = X X y 


"1  ■ ]i|  • «2 

rip  = • Ri 

^ |y|  ' 


Note  for  Option  1,  the  factors  6^  are 
^i-A7 
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4.87.19  QDMEMl  Isoparametric  Quadrilateral  Element 
4.87.19.1  Input  Data  for  QDMEMl  Element 


1.  ECPT  entries  for  QDMEMl  are: 


Symbol 

EID 

SILi 

SIL^ 

SIL3 

SIL4 

0 

Mat  ID 


h 


Description 

Element  identification  number 

Scalar  indices  of  the  connected  grid  points 


Anisotropic  material  orientation  angle 
Material  identification  number 
Thickness 


i = 1 ,4 


Nonstructural  mass  per  unit  area 


Local  coordinate  system  numbers  and  location 
coordinates  in  the  basic  system  for  the  connected 
grid  points 


Temperature  of  element 


2.  Coordinate  system  data 

The  numbers  N^. , , Y^. , and  are  used  to  calculate  3 by  3 basic-to-global  coordinate 

transformation  matrices  [T^.]  for  points  i = 1,  2,  3,  and  4. 


3.  Material  Data 


Symbol 

[G] 


P 


xy 


t 


0 


9e 


Description 

3x3  Stress-strain  matrix 
Mass  density 

Thermal  expansion  coefficients 

Reference  temperature 

Structural  damping  coefficient 

Stress  limits  for  tension,  compression,  and 
shear 
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4.87.19.2  Basic  Equations  for  QDMEMl 

1.  Calculation  of  unit  vectors  in  mean  plane. 

The  following  equations  are  used  to  calculate  the  three  unit  vectors  in  the  mean  plane, 
{i},  {j},  and  {k}  (see  figure  1),  which  define  the  element  coordinate  system. 


{V.}  = 


. i = 1,  2.  3,  4 


(1) 


The  diagonals  are; 


{d^}  = {V3}- 

(2) 

{d2>  = - 

{V2> 

(3) 

The  normal  to  the  plane  is  calculated  from: 


{k}  = 

{d^}x{d2> 

|{d^}x{d2}| 

(4) 

{a^}  = 

{V2>  - {V^> 

(5) 

>N 

h = 

4" 

(6) 

The  vectors  lying  in  the  mean  plane  are  computed  from: 

{i}  = - 

{a^}  - 2h{k} 

(7) 

1 

{a^}  - 2h{k}  1 

= {k}  X {i} 

(8) 

The  displacement  transformation  matri> 

: from  basic  coordinates 

to  in-plane  coordinates 
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[E]' 


E^ 


0 

0 

0 


0 

0 

f' 


0 j 0 


(9) 


where 


system  are: 


^ ! ’2  ! ’3 

[if 

= 

Ji  ! ^2  1 h 

00) 

1 k2  , kj 
L ' 1 J 

difference  of  coordinates  of  the  points  in  the  element  coordinate 

x^2  = 

■ 

X2  = - {a^f{i} 

01) 

^1  - 

X3  = - {d^fci} 

(12) 

^24  = 

X2  - 

X4  = - {d2f{i} 

(13) 

^14  " 

x^2  • 

'■  X24 

(14) 

^13  ■ 

■ ’^12 

(15) 

^34  = 

Xi4  • 

■ ^13 

(16) 

^3  = 

(17) 

^4  = 

{d2}''’{j} 

(18) 

^34  = 

^3  - 

^4 

(19) 
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The  transformation  of  displacements  at  the  user-specified  grid  points  from  the  displace- 
ments at  the  projected  points  in  the  mean  plane  is  given  by  the  12  x 8 matrix  [B].  The 
nonzero  elements  of  this  matrix  are  given  by: 

B(l,l)  = B(2,2)  = B(4,3)  = B(5,4)  = B(7,5)  = 8(8,6)  = 8(10,7)  = B(ll,8)  = 1 (20) 


B(3,l)  = 


-h 


1 cot  e, 

B(3.2)  = h 


(21) 

(22) 


B(3,3)  = -B(3,l) 


(23) 


B(3,4)  = h 


cot  6, 


(24) 


B(3,7)  = h 


cos  6 


42 


'^d  ^2 


(25) 


B(3,8)  = h 


sin  0 


42 


^d  ^2 


B(6,l)  = -B(3,l) 


cot  0 


B(6,2)  = -h 


B(6,3)  = B(3,l) 


B(6,4)  = h 


-cot  0, 


2 + 1 


^b  ®2 


(26) 

(27) 

(28) 

(29) 

(30) 


B(6,5)  = h 


-sin  0 


31 


(31) 


B(6,6)  = h 


-cos  0 


31 


Jib 


(32) 
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where 


B(9.4)  = h 


-1 


sin  02 


(33) 


B(9.5)  = 


sin  cos  e„ 

h I + 32 


(34) 


B(9,6)  = 


h si"  ®32 


(35) 


B(9,7)  = h 


-sin  0 


'41 


^2 


(36) 


B(9,8)  = h 


cos  0 


41 


^c  "2 


(37) 


B(12,2)  = h 


sin  0-| 


(38) 


B(12,5)  = h 


-cos  0 


32 


^c^l 


(39) 


B(12,6)  = h 


-sin  0 


32 


^c  ^1 


(40) 


-cos  0,,  sin  0., 

B(12,7)  = h ( 


^2  ^'c  ^2 


(41) 


B(12,8)  = h 


-sin  6^2  cos  0^^ 


^2  ^2 


(42) 


h = -h 


-h 

(43) 

-Xi2 

(44) 

4.87-221  (5/1/73) 


MODULE  FUNCTIONAL  DESCRIPTIONS 


^ ^ A 

^•d  =V^14  ■*■  A 


A 

A 


1 

2 


sin  e 


cos  0 


1 


sin  e„ 


cos  6, 


sin  0 


31 


cos  0 


31 


cos  0 


31 


cos  0 


41 


= sin  0 


41 


II 


-X 


= cos  0 


14 


41 


^3 

®32  = 


= sin  0 


_ ^23 


32  A, 


= COS  0 


b 

^34 


42 


= sin  0 


’'34 


42 


cos  0^2  -sin  0^^  sin  0 


cos  0^2  ®4i  ® 


32 

42 


See  Figure  2 for  characteristic  lengths  and  angles  of  quadrilateral  membrane  in 
mean  plane. 


(45) 

(46) 

(47) 

(48) 

(49) 

(50) 

(51) 

(52) 

(53) 

(54) 

(55) 
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4.87.19.3  Stiffness  Matrix  Calculation  for  QDMEMl  (Subroutine  KQDMMl  of  Module  SMAl) 


1.  Element  interior  angle  tests. 

The  interior  angles  of  the  quadrilateral  in  the  mean  plane  are  checked  to  verify 
that  they  are  less  than  180°.  The  following  tests  are  used; 


Test 
If  Y4  < 0 
If  Y3  < 0 

If  < x^2  + >^23  ^ 
^13  ^ 1^^14 


Point  with  angle  greater  than  180° 
1 
2 
3 


2.  The  stiffness  matrix  in  the  mean  plane  in  terms  of  the  displacements  in  the  mean 
plane  is  calculated  first  as 

= / / [A]'[G][A]J  dC  dn 


(56) 


0 0 


where  [G]  is  the  3x3  stress-strain  matrix. 


J - -Xi2y4  ■ ^12^34  ^ ^^3^14  " •^4^23^'^ 

and  [A],  a 3 x 8 strain-displacement  matrix  is  represented  in  the  following  manner. 


( a-j +b^r)+c^  1 (a^+b^n+c^^)  j 

1 

1 

( 322^^22^"^^22^^ 

1 1 

1 — 1 
CO 
X 
00 

1 

■ J 

! 1 

( a2‘^b2Tv*'C2C)  j • i • 

1 ! 

1 

1 

1 

(58) 

1 ' 

_(a3+b  30+035)  1 ■ ! • 

1 

1 

( ^24^^24^^^24^  ^ 

In  the 

expression  for  the  matrix  [A], 

"l  = 

-^4 

‘’l  = ^3 

CO 

II 

0 

(59) 

"2  = 

0 

0 

II 

CM 

JO 

0 

II 

CM 

0 

(60) 
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CVJ 

X 

1 

II 

CO 

*^3  ° ’'23 

h " ’'34 

(61) 

‘4  = 0 

64  = 0 

C4  = 0 

(62) 

'5  ‘^24 

‘’5  ' ’'23 

•^5  " ’'34 

(63) 

'6  ' ■•^4 

‘’6  = ^3 

*^‘6  ^ -^34 

(64) 

>7  = y4 

^ = -^4 

h = ^34 

(65) 

'8  = 0 

bg  = 0 

Cg  = 0 

(66) 

*9  " ^14 

‘’9  = -’'14 

"9  " ■’'34 

(67) 

‘lO  ^ ° 

ho  = 0 

"10  ^ ° 

(68) 

'n  ’'14 

“’ll  ■’'14 

'’ll  " ■’'34 

(69) 

'l2  " ■>'4 

bi2  = -y4 

'’12  " ^34 

(70) 

'13  = 0 

h3  = ^4 

'’13  = 0 

(71) 

‘14  = ° 

h4  = ° 

'’14  = 0 

(72) 

‘15  = ° 

‘’15  " ’'14 

”l5  ' ■’'12 

(73) 

‘16  = ° 

h6  = 0 

”16  = 0 

(74) 

‘17  = ° 

‘’17  ^ ’'14 

”l7  " ■’'12 

(75) 

‘18  = 0 

hs  = ^4 

'”l8  ° ° 

(76) 

‘19  “ ° 

*’l9  ° -^3 

'”l9  ^ ° 

(77) 

O 

II 

O 

CM 

ho  = 0 

■'20  " ° 

(78) 

CM 

X 

1 

II 

CM 

‘’21  ^ ■’'23 

”21  ° ’'12 

(79) 

O 

II 

CM 

CM 

‘’22  ° ° 

"22  ' ° 

(80) 

‘23  ■’'12 

^23  " ■’'23 

”23  " ’'12 

(81) 

o 

II 

CM 

^24  ^ -^3 

'’24  ° ° 

(82) 
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The  approach  used  to  evaluate  the  stiffness  matrix  [U]  is  to  identify  each  term  in 
the  triple  product  (equation  56)  prior  to  the  integration.  Toward  this  end,  the  8x8 
matrix  [U]  is  thought  of  as  being  constructed  of  sixteen  2x2  submatrices,  each 
identified  by  subscripts  (i,j)  as  in  the  following  table 


II 

•o 

j = 2 

j = 3 

II 

II 

i = 2 

i = 3 

i = 4 

2x2  Partition 


The  subscript  i indicates  a horizontal  slice  of  2 rows  of  the  matrix  and  the  subscript 
j indicates  a vertical  slice  of  2 columns  of  the  matrix.  Further  if  the  row  identifier, 
k,  and  column  identifier,  £,  are  introduced  to  locate  an  element  within  any  particular 
2x2  submatrix  (k  and  I assume  values  of  1 and  2),  then  a general  term  in  the  U matrix 
is  located  by  specification  of  i,  j,  k,  and  il.  Thus,  when  advantage  is  taken  of  some 
zero  terms  in  the  matrix  A, 


u . = h } ) .d  en  ^ ^ pn^  ^ 

0 0 ^ 

^2  ^2  ^2  ^2  ^2  ^2 

^ *^'?3(®k  ‘^k  ^8.  ) 

^A/  1^2  ^2  ^*j  ^2  *^2  ^2  ^2 


(83) 

(84) 


(85) 


(86) 
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^ ^33^^k2%  ^ '^I<2'^^2^ 

(87) 

P = 

*"k3‘^k.,^)l2  ‘’33'^k2^«.2 

(88) 

‘’k3S^‘^t2  ^ ^3S,^k2‘^X.,  ‘"33^k2‘^Jl2 

(89) 

where  additional  subscripts  are  identified  as 

•^1 

6(i-l)  + 4(k-l)  + 1 

(90) 

= 

6(i-l)  + 3{k-l)  + 3 

(91) 

h - 

6{j-l)  + 4(JI-1)  + 1 

(92) 

h 

6(j-l)  + 3(«.-l)  + 3 

(93) 

Gaussian  Quadrature 

The  evaluation  of  equation  (83)  is  carried  out  by  Gaussian  quadrature  utilizing 
a 4 X 4 grid.  Thus 

h ^ . 

i =7  ^ ^ a„,  a 

’•^kit  ^ ui=0  n=0  " 

"d  * er,„  * fe,  ♦ h.„„c„  * p„„,„  t ,C,E„' 

(94) 

where 

^0  = % = - 7 ■ 

^ (32_1_J^)  + ^ = ,069431844 

(95) 

J 

J (30  .,-,  V^)  + 1 = .330009478 

^ 70  2 

(96) 
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^2  = ri2  = |-  y + 1.  = .669990522  (97) 

C3  = H3  = j V (—70^^)' ^ J-  = -930568156  (98) 

= 33  = .347854845  (99) 

a.|  = 82  = .652145155  (100) 


4.  The  3x3  stiffness  matrix  partition  [k- •]  in  global  coordinates  is  then  given 

* J 

by 


[k^j]  = [T^f  ([E][B][U][Bf[Ef).j[Tj] 


(101) 


where  i corresponds  to  the  current  pivot  number  and  assumes  values  1,  2,  3,  4; 
j corresponds  to  one  of  the  connected  grid  points  and  assumes  values  1,  2,  3,  4; 
( [E][B][U][B]^[E]^) . . is  the  appropriate  3x3  partition  of  the  12  x 12  matrix 

* J 

[E][B][U][Bf[Ef  . 


5.  For  use  in  the  overall  structural  matrix,  the  matrices  are  expanded  to  6 x 6 to 
form: 

o' 


[K,J  = 


*^ij 


(102) 


4.87.19.4  Mass  Matrix  Generation  for  the  QDMEMl  (Subroutine  MASSTQ  of  Module  SMA2) 

The  mass  matrix  for  the  isoparametric  element  is  calculated  in  the  same  manner  as  QDMEM 
element  which  subdivides  the  quadrilateral  into  two  triangles.  See  Section  4.87.4.11  on  pages 
4.87-74  to  4.87-75  of  the  Programmer's  Manual. 

4.87.19.5  Element  Load  Calculations  for  the  QDMEMl  Element  (Subroutine  QDMEMl  of  Module  SSGl) 

The  first  step  in  the  calculation  of  the  thermal  load  vector  is  to  compute  the  following 
matri x 
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1 1 T 

CC]gx3  = h / / [A]'  J dC  dn 


(103) 


The  integrations  in  equation  (103)  can  be  performed  in  closed  form  and  results  in  the  following 


'11 


hy/i 


(104) 


Ci2  = 0 


'13 


‘'22 


'23 


hx 


24 


"21 


0 

hx, 


24 


2 


(105) 

(106) 

(107) 

(108) 

(109) 


'31 


'33 


^42 


^43 


'51 


h^ 

2 


C32  = 0 


hx 


13 


C41  = 0 


hx 


13 


2 


(110) 

(111) 

(112) 

(113) 

(114) 

(115) 

(116) 
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^52 

= 0 

(117) 

■53  ^ 

hx24 

2 

(118) 

^61 

= 0 

(119) 

'62  ^ 

hx^A 

2 

(120) 

■63  ^ 

hy4 

(121) 

71  = 

2 

(122) 

C72 

= 0 

(123) 

73 

hxi3 

2 

(124) 

^81 

= 0 

(125) 

'82  ^ 

hXi3 

2 

(126) 

’83  ^ 

9 

(127) 

Given  the  temperature  of  the  element,  t,  either  directly  or  from  the  temperature 
of  the  four  grid  points  t^  t2»  t^,  and  t^  in  the  GPTT  data  block,  the  routine 
generates  force  vectors  by  the  equation: 


{P>i  = [T^f([E][B][C][G]{a}).  (t  - t^)  (128) 

where  ([E][B][C][G]{a})^  is  the  appropriate  3 x 1 subvector  of  the  12  x 1 
vector  [E][B][C][G]{a}, 


{a} 


xy 


(129) 
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and  is  the  reference  or  stress-free  temperature  of  tie  material.  The  forces 
are  placed  in  the  PG  load  vector  data  block. 


4.87.19.6  Element  Stress  Calculations  for  the  QDMEMl  Element  (Subroutines  SQDMMl  and  SQDMM2 
of  Module  SDR2) 

1.  Calculations  performed  in  SQDMMl  (Phase  1 calculations), 

(a)  The  stresses  in  the  QDMEMl  elements  are  calculated  at  the  intersection  of 
the  diagonals  identified  byC*.n*.  For  parallograms 

?*  = 1/2  (130) 

n*  = 1/2  (131) 

For  other  geometries,  first  x*  and  y*  must  be  found  as 


/*  = - 


Vl3^12 
^3^24  - Vl3 

V4(x*  ^'12^ 


'24 


(132) 


(133) 


provided  X2^  / 0.  In  the  event  that  x^-^  = 0 a simplification  results  and 


13 


X*  = 

y*  = 


For  the  situation  where  X2^  = 0 


X*  = - X 


12 

^3^12 

^13 


(134) 

(135) 


(136) 

(137) 
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After  the  values  of  x*  and  y*  are  obtained,  in  the  situation  where  f - x^2  > 


b*  ± (b*)^  - 4a*Xigy* 


2a* 


where  the  + sign  is  chosen  such  that  0 < n*  < 1 and 


Should  a*  = 0,  then 


Further,  if  y^^  ^ 0, 


Ify34  = 0, 


b*  = - y4X-|2  + c* 


= - V23 

C*  = y34X*  - y*(x34  + x^2) 


-Xi2y* 

b* 


-C*  + (y4Xg3  - y3x^4)n* 


X*  + x^^n* 

Cn*(x24  ^12^  ” ^12^ 


For  the  situation  where  = -x^2  ^34  ^ ^ 


T*  = 


-b  + -^  (b)^  + 4axi2y* 
2a 


where  the  + sign  is  chosen  such  that  0 < n*  < 1 and 


b = x^2y4  - ^34''" 


a = 'X 


14^34 


(138) 

(139) 

(140) 

(141) 

(142) 

(143) 

(144) 

(145) 

(146) 

(147) 
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Should  a = 0,  then 


After  5*  is  evaluated,  then 


(b)  The  values  of  and  n*  are  substituted  into  matrix  [A]  and  the 
from  displacements  to  stress  are  then  given  by 

[s^-]  = ([G][A][B]W)i[T,.]  i=1.2.3,4 

where  ( [G][A][B]^[E]^)^  is  the  appropriate  3x3  partition  of  the  3 x 
[G][A][B]^[E]^.  The  temperature-stress  relation  is 


{S^}  = - [G]{a} 


2.  Calculations  performed  by  SQDMM2  (Phase  2 calculations) 
The  equation  for  stress  is 


xy 


= Z [S^]{u  } + {S^}(t  . t^) 


i=l  ‘ ^i 


The  principal  stresses  are: 


0+0  /o-o2  o 


*°v  . J ,’x-‘'y,2  , .2 


2o., 


(j)^  = ^ tan*^  (-  ) (converted  to  degrees) 

X y 


where  (f)^  is  limited  to  -90®  ± <i>-^  ± 90®  . 


(148) 

(149) 

transformations 

(150) 

12  matrix 

(151) 

(152) 

(153) 

(154) 

(155) 
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The  maximum  shear  stress  t is  given  by 


(156) 


» 


\ 
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Figure  1.  Mean  plane  for  quadrilateral  membrane  element.  (Actual  grid  points  are 
indicated  by  unprimed  numbers  and  projection  of  grid  points  onto  mean 
plane  are  indicated  by  primed  numbers.) 


Figure  2.  Characteristic  lengths  and  angles  for  quadrilateral  membrane  element  in  mean  plane. 
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4.87.20  The  QDMEM2  Element 

4.87.20.1  Input  Data  for  the  QDMEM2  Element 

1.  The  ECPT/EST  data  block  contents  are: 

Symbol 

EID 

SIL^,  i = 1,2,3,4 
0 
t 
P 

N^.  X^.  Y^,  Z^, 

1 = 1. 2,3.4 

2.  Material  data: 

The  material  subroutine,  MAT,  returns 
Symbol 

®11’®12’®13 

®22’®23’®33 

P 

{a} 

^0 

«e 

®f‘^c’°s 

3.  Coordinate  system  data 

For  each  connected  grid  point,  i,  the 
basic  transformation  matrix,  [T^]. 

! 


Description 

Element  identification  number 
Scalar  indices  of  the  connected  grid  points 
Anisotropic  material  orientation  angle 
Thickness 

Nonstructural  mass  per  unit  area 

BGPDT  data  giving  local  coordinate  system 
number  and  basic  coordinate  system  locations 
for  the  connected  grid  points 

Temperature  for  material  properties 
the  following  data 

Description 

Elements  of  3x3  stress-strain  matrix  in 
material  coordinates 

Mass  density 

3x1  thermal  expansion  vector 
Reference  temperature 
Structural  damping  coefficient 
Stress  limits 

BGPDT  data  is  used  to  calculate  a 3x3  global -to- 
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4.87.20.2  Basic  Calculations  for  the  QDMEM2  Element  (Subroutine  52BCS) 

1.  The  element  coordinate  system  is  defined  by  the  following  equations 

(D^3>  = ^3-^1 

(Vl 

iX4-X2 
^4‘^2 

V"2 

{N  } ={D^3}x{D24}, 

A = i|{N}l  , 

" ]WT 

[ . 

/x2-xi 

{d^2>  = 

( 

h = 

{x}  = 

{j}  = {k}x{i}  , 
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The  unit  vectors  are  stored  in  the  transformation  matrix  E as  follows: 


[E]  = 


{i}' 

{k}'' 


If  hVA  < Cp,  a flag  is  set  indicating  the  element  lies  approximately  in  a plane. 
2.  The  locations  of  the  points  in  element  coordinates  are: 

O] 

{r^}  = < o[  . 


where 


{r^}  = [E] 


<i-xi 


,Zi-Zi 


+ {r^}  , 


i “ 2,3»4>5» 


/ysl  = i[{x^}+{x2}+{x3}+{x^}]. 

["5) 

4.87.20.3  Subtriangle  Calculations  for  the  QDMEM2  Element  (Subroutine  Q2TRMS) 
1 . Input  data: 


Sti ffness 

Thermal  Load 

Stress  Recovery 

a,b 

a,b 

a,b 

[r] 

[r] 

[r] 

[Ge] 

[G,] 

[Ge] 

cose„,sin0^ 

m*  i\ 

cose^jsine^ 
m m 

cos6„,sine„ 
m m 

t 

t 

t 

(aeHT-To) 

(otg) 
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where 

a.  [r]  is  a 5x3  matrix,  each  row  is  the  location  of  a point  in  element  coordinates. 

b.  a,b  are  pointers  to  the  two  connected  points  in  the  [r]  matrix.  The  fifth  row 
is  always  the  third  point. 

c.  [Gg]  is  the  3x3  material  matrix  in  material  coordinates  defined  in  /MAT0UT/. 

d.  cos0^,sin6^  are  the  orientation  angle  cosine  and  sine. 

e.  t is  the  element  thickness. 

f.  ttg  is  the  thermal  expansion  coefficient  in  material  coordinates,  given  in  /MATUUT/. 

g.  (T-Tg)  is  the  temperature  of  the  triangle. 

2.  Output  data: 

Stiffness  Thermal  Load  Stress  Recovery 


1 — 1 
fO 

0 
1 1 

1 — 1 
<0 
0 

1 1 

[^cb^ 

f^b] 

1 — 1 

0 
1 — 1 

{pj} 

^Pa> 

^^a> 

t^ab^ 

tPb> 

t^b] 

^^b> 

CSa3 

{Pc> 

1 — \ 
JD 
1 1 

[^aa] 

C^bb] 


3.  The  equations  to  produce  this  data  are: 


<'l2>  ■ H>- 

{V13}  = {r^}-{r|j},, 
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{N}  = {V^2^x{V^3}  , 

^ |{N}1 
A = il{N}l  , 

{j}  = {k}x{i}  . 


Xb=  |{V^2>I  ’ 

Xc  = tV,3}. 

yc  = tv,3}. 


J_ 


C4  = 03(02*1) 


-0, 


0 


- 


0 


^4 


-"1 


[Cb:i 


0 -C2O3 

-02O3  0^ 
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The  material  orientation  cosine  (C^)  and  sine  (S^^)  are  calculated  by  the  equations 

Ax  \ 

* 

AZ  ) 

I =-^Ax^+Ay^  , 

Cm  " (cos0jnAx+sine^Ay)/£, 

Sm  “ (s1n0j„Ax-cose^Ay)/ll. 

The  material  orientation  is  used  to  transform  anisotropic  materials, 

[T^]  = 

The  equation  for  each  stiffness  matrix  partition  is 

[K^j]  = At  [H.^]  [Gg]  [Hj]  . 

where 

[H,.]  = [T^]  [C.]  [Eg]  . 
i = a,b,c. 

The  equation  for  the  thermal  loads  is 

{P^}  = At[H.f  [Gg]  {«g}  (T-Tjj), 
i = a,b,c. 

The  equations  for  the  stress  matrices  are 

[s^]  = [Gg]  [H^], 

{pj}=  At[H^f  [Gg]  {ag}  , 

{Z.r  = t{T;r  [S.], 


C,n' 

m 


Sm" 

m 


Sm' 

m 


Cm' 

m 


m m 


m m 


-2C  S 2C  S (C  ^-S  *) 
mm  mm  ' m m ' 
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where  {T^}  is  the  third  column  of  the  [T^]  matrix, 

i = a,b,c. 

4.87.20.4  Stiffness  Matrix  Calculations  for  the  QDMEM2  Element  (Subroutine  KQDM2S  of  Module  SMAl) 

1.  The  material  properties  in  the  material  coordinates  are  calculated  by  calling 
subroutine  MAT  with  6=0  degrees. 

2.  The  area  of  core  for  storing  element  stiffness  matrix  partitions  is  set  to  zero, 
and  the  basic  element  calculations  are  done  with  subroutine  Q2BCS,  which  returns 
the  following  data 


f . . , c fhe  locations  of  the  five  points  in 

” ’ •••  element  coordinates. 


[E] 


The  3x3  basic-to-element  coordinate 
system  transformation. 


PFLAG 


Flag  indicating  whether  or  not  the 
element  approximates  a plane. 


3.  The  four  subtriangles  are  processed  with  subroutine  Q2TRMS.  Each  triangle,  I,  is 
given  three  points  defined  by  the  mapping  matrix  where 


Point  number  = M,^  , a = 1,2,3 

I = 1, 2,3,4, 


[M]  = 


r- 

1 

2 

3 


2 5 

3 3 

4 5 

1 5 


The  orientation  of  the  triangles  is  shown  below 
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4,  Each  triangle  produces  seven  matrices* 

^'^aa^’  ^'^ab^’  ^'^ba^’  ^*^bb^‘ 

These  are  added  to  the  appropriate  matrices  for  the  entire  element 

[Kg.]  i = 1,  ...5. 

[K^j]  i = 1.  ...4*  j = 1.  ...4. 

5.  The  displacement  of  the  center  point  will  be  constrained  by  the  equation 

{ug}  = I [G.]  {u,.}. 

If  the  element  is  not  planar, 

G,  ■ - [K55]-'  [K5,] 

If  the  element  is  planar, 

K,  ■ [Kj,], 

with  the  third  rows  modified  as  follows: 


[K,]  - 


XXX 

XXX 

0 0 -.25 


i t 5 


The  equation  for  G^.  is 


[Kg]  = 


XXX 
XXX 
0 0 1.0 


i = 5 


[G^]  = - [Kg]-’  [K^]  . 


6.  The  "pivot"  point,  p,  is  found  and  the  constrained  matrices,  are  produced. 

' j 

If  the  element  is  not  planar. 


■ tSjl  ’ Kj], 
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If  the  element  is  planar, 

* Kpj"  * »p3"  ["55]  Kjl- 

(p  = pivot  point,  j = 1,2, 3, 4). 

7.  The  matrices  are  transformed  to  global  coordinates  and  output  as  double  precision 
6x6  partitions, 

[K^j]  = ([E]  [Tp])^  [Kpj]  ([E]  [Tj]). 

Output: 

■ 

8.  If  the  structural  damping  matrix,  being  produced,  the  damping  matrices, 

[kJ*.]  are  also  output  where 
PJ 


4.87.20.5  Mass  Matrix  Generation 

Subroutine  MASSTQ  of  module  SMA2  is  used  to  generate  a lumped  mass  matrix.  The  element 
is  treated  exactly  like  a QDMEM  element. 

4.87.20.6  Thermal  Loads 

The  basic  calculations  indicated  in  Sections  4.87.20.2  and  4.87.20.4  are  performed. 

The  average  temperature,  T,  is  given  in  the  GPTT  data.  The  material  routine,  MAT,  is  called 
to  produce  the  {a^}  vector  and  the  reference  temperature,  T^.  The  following  product  is 
passed  to  the  Q2TRMS  subroutine, 

{d}  = {a^}  (T-T^). 

The  Q2TRMS  subroutine  will  return  the  three  3x1  load  vectors: 

{P^},  {P^},  and  {P^}. 
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It  will  also  return  the  following  3x3  matrices, 

The  loads  are  added  directly  to  the  five  load  vectors  corresponding  to  the  five 
connected  grid  points,  {P^},  {P^},  {P3>,  {P^},  {Pg}. 

The  matrices  are  added  to  the  five  3x3  nfwitrices, 

[K51],  [K52]»  ^*^55^ • 

When  all  triangles  have  been  processed,  the  center  point  load  is  eliminated  by 
the  equation 

{P®}  = {P^}  + [gJ]  {Pg}  i=l .2,3,4. 

where  the  3x3  matrix,  [G],  is  calculated  as  in  step  5,  Section  4.87.20.4. 

The  resulting  loads  are  transformed  to  global  coordinates  by  the  equation 

{P?}  = [T]^  [E]^  {P|}. 

4.87.20.7  QDMEM2  Element  Stress  and  Force  Calculations  (Subroutines  SQDM21  and  SQDM22 
of  Module  SDR2) 

Phase  1 

1.  In  the  Phase  1 calculations,  the  basic  calculations  indicated  in  Sections  4.87.20.2 
and  4.87.20.4  are  performed,  and  the  material  data  is  extracted  with  subroutine  MAT. 
The  subroutine  is  called  for  in  each  triangle.  The  output  will  be 

[K. .]  i = a,b,c  and  j = a,b,c 

' j 

Nine  stiffness  matrices  in  element  coordinates  (3x3). 

Three  stress  matrices  (3x3). 

(p').  (pj).  (pj) 

Three  stress  temperature  vectors  (3x1). 

a,).  (Zj,).  a^) 

Three  edge  force-displacement  vectors. 


4.87-244  (5/1/73) 


STRUCTURAL  ELEMENT  DESCRIPTIONS 


2.  This  data  is  added  to  the  appropriate  positions  in  the  data  corresponding  to  all 
the  connected  points  of  the  element  This  data  is 

[R-j]  i = 1,2, 3,4  and  j = 1,2, 3, 4 
Sixteen  matrices  (3x3). 

[R|^]  i=  1,2, 3,4,5 
Five  matrices  (3x3). 

[s|]  i=l,2,3,4,5 

Five  matrices  (3x3). 

{P^>  i = 1,2, 3, 4, 5 
Five  vectors  (3x1). 

3.  The  {Z^},  {Z.},  and  {Z^}  vectors  are  stored  in  five  4x3  [R]  matrices.  For  triangle 

a D c 

No.  I,  the  data  vector,  {Z^},  is  stored  in  row  I of  the  matrix  corresponding  to 

a 

point  a. 

4.  The  constraints  on  the  center  point  are  applied  with  the  following  logic.  The  matrix, 
[G],  is  calculated  as  in  step  5 of  Section  4.87.2T.4. 

The  equations  for  the  reduced  data  are  as  follows: 

If  the  planar  flag  is  “off,'* 

. [li'j]  * [Gj], 

If  the  planar  flag  is  "on," 

[K®j]  = [R®.]  + [R|.f  [Gj]  + [G.f  ay  + [G.f  ay  [g^]. 

For  either  case, 

[s^]  = i[Sp  + [Sp  [G.], 

[R^]  = [R^]  + [Rg]  [G^], 

{pj}  = {Pj}  + [G^.f  {Pg}. 


4.87-245  (5/1/73) 


MODULE  FUNCTIONAL  DESCRIPTIONS 


5.  The  data  is  transformed  to  global  coordinates  by  the  equations 

[K?j]  = [Q,]  [Kf .]  [E]  [T.]. 

{P?}  = [Qi-]  {Pj}. 

[S?]  = [S®]  [E]  [T.]. 

[Rp  = [R^]  [E]  [T^]. 

where  the  [Q]  matrices  necessary  to  transform  corner  forces  to  directions  parallel 
to  the  sides  are  calculated  as  follows: 

{d,}  = {r^}  - {r^} 

{d2>  = {r3>  - {r2> 

{d3>  = {r^}  - {r3> 

{d^}  = {r,}  - {r^} 

{k^}  = - {d^}  X {d^} 

{k2>  = - {d2>  X {d^} 

{k3>  = - {d3>  X {d2> 

{k^}  = - {d^}  X {d3> 

^"^i^  " |{k.}|  ^"^i^  ’ 

[Q^]  = [-{a^>  i i {6^}]’'', 

i = 1, 2,3,4,  ({oq}  = {a^}). 
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6.  The  following  250  words  of  data  is  saved  on  the  ESTB  data  block 


Symbol 

Description 

ID 

Element  identification 

SIL,. 

1=1.2, 3.4 

Connected  point  SIL  values 

t 

Thickness 

Reference  temperature 

1 — 1 

C-i. 
i 1 

Sixteen  point  force  versus 
displacement  matrices  (3x3) 

1 — 1 
C3Dt- 
CO 
1 — 1 

Four  stress  matrices  (3x3) 

{Pj} 

Four  point  force  versus  temperature  vectors 

{S^} 

One  stress  temperature  vector  = [G^]  {a^} 

[Ri-] 

Four  side  force  matrices  (4x3) 

Phase  2 

The  displacement  vectors  for  the  connected  grid  points,  {u^.},  are  extracted  from  open  core. 
The  temperature  of  the  element,  T,  is  given  in  the  GPTT  data  block.  If  "STRESS"  for  the  element 


is  requested,  the  following  data  is  calculated: 

l^x  ) 

\ 4 

°y  ° ■ ‘V  <K>- 

IT  I 

\ ^^1 

The  stress  output  is  identical  to  the  QDMEM  element  output. 

If  "ELF0RCE"  output  is  requested,  the  following  data  is  calculated: 

if')  . J [K,j]  (Uj)  - (P,‘)  (T-T„). 

j * 
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The  in-plane  forces  are: 


The  "kick"  forces  are 


1—  CVJ 
Lx. 

II 

fj  ■ f| 

f = 

II 

1^ 

fj.Fj 

f4-fl 

f = F^ 

^8  = 

are: 

F,  -Fj. 

i=l, 2.3,4. 

The  "shear"  forces  are: 


= l [R^] 
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4.88  DETERMINANT  METHOD  OF  EIGENVALUE  EXTRACTION 

NASTRAN  contains  two  double  precision  versions  of  the  determinant  method.  One  version 
is  for  the  solution  of  real  eigenvalue  problems;  and  one  version  is  for  the  solution  of  complex 
eigenvalue  problems.  The  specifications  for  both  versions  are  discussed  in  this  document.  Real 
arithmetic  is  used  for  the  real  problem,  complex  for  the  complex  problem. 

4.88.1  Fundamentals  of  the  Determinant  Method 

The  basic  notion  employed  in  the  determinant  method  of  eigenvalue  extraction  is  very  simple. 
If  the  elements  in  a matrix  [A]  are  functions  of  the  operator  p,  then  the  determinant  of  [A]  can 
be  expressed  as: 


D([A])  = (p-Pj)  (p-p^)  ...  (P-P„),  (1) 

where  p^,  p^,  p^  •••Pn  eigenvalues  of  the  matrix.  The  value  of  the  determinant 

vanishes  for  p = p^ , i = 1,2,... ,n. 

In  the  determinant  method,  the  determinant  is  evaluated  for  trail  values  of  p,  selected 
according  to  some  iterative  procedure,  and  a criteria  is  established  to  determine  when  D([A]) 
is  sufficiently  small  or  when  p is  sufficiently  close  to  an  eigenvalue.  The  eigenvector  is 
then  found  by  solution  of  the  equation: 


[A]  {u}  = 0,  (2) 

with  one  of  the  elements  of  {u}  set  to  unity. 

4.88.2  Evaluation  of  Determinant 

The  most  convenient  procedure  for  evaluating  the  determinant  of  a matrix  employs  the 
triangular  decomposition  of  the  matrix:  [A]  = [L]  [U]  where  [L]  is  a lower  unit  triangle 

(unit  values  on  the  diagonal).  The  determinant  of  [A]  is  equal  to  the  product  of  the 
diagonal  terms  of  [U].  The  matrix  [A]  may  be  expressed  as 

[A]  = -p[M]  + [K],  (3) 


for  real  eigenvalue  problems  and  as 
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[A]  = p^[M]  + p[B]  + [K], 


(4) 


for  complex  eigenvalue  problems. 


4.88.3  Iteration  Algorithm 

Consider  a series  of  determinants  ^k-1’  evaluated  for  trial  values  of  the 

eigenvalue  p = Pj^.2’  ^k-1  ’ ^k*  ^ better  approximation  to  the  eigenvalue  is  obtained 

from  the  following  calculations: 

Let 


Then 


where 


\ = Pk  - pk-1  • 

(5) 

(6) 

6^  = 1 + 

(7) 

•’k+l  " Vl  ‘’k* 

(8) 

Pk+1  ^ Pk  “^k+l  * 

(9) 

u 

“^k  ^k 


'■*'  9k  i[gj  - 4dI"  (dW  - Djlj  t oj'l)  ] '«  • 
Sk  ■ “kik  V - V * "i”  (^k*  \l- 


(10) 


(11) 


The  (+)  or  (-)  sign  in  Equation  10  is  selected  to  minimize  the  absolute  value  of  . 
In  the  case  where  pj^,  P|^_^  and  pj^^^  aribitrarily  selected  initial  values  (starting 

points),  the  starting  points  should  be  arranged  such  that  |0|^|_<lD|^_^  |£|D|^^2l  (‘^) 

(-)  sign  in  Equation  10  should  be  selected  to  minimize  the  distance  from  P|^^-|  to  all  3 
starting  points. 

In  a real  eigenvalue  analysis  it  is  possible  to  calculate  a complex  . In  order  to 
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preclude  the  use  of  complex  arithmetic  in  a real  eigenvalue  analysis  problem,  only  the 
real  part  of  the  should  be  used  to  estimate  a P|^^.i » 

4.88.4  Scaling 

In  calculating  the  determinant  of  [A],  the  determinant  is  scaled  by  powers  of  10  since 
the  accumulated  product  will  rapidly  overflow  or  underflow  the  floating  point  size  of  a 
digital  computer.  All  operations  using  the  determinant  are  calculated  in  scaled  arithmetic. 

4.88.5  Sweeping  of  Previously  Extracted  Eigenvalues 

Once  an  eigenvalue  has  been  found  to  satisfactory  accuracy,  a return  to  that  eigenvalue 
by  the  iteration  algorithm  can  be  prevented  by  dividing  the  determinant  by  the  factor  (p-p^') 
where  p^'  is  the  accepted  approximation  to  p in  all  subsequent  calculations. 

Thus: 

dO)  (|-A])  = D(£^)  (^2) 

P-P,‘ 

should  be  used  in  place  of  D([A])  after  the  first  eigenvalue  has  been  found.  In  general,  the 

C 

reduced  determinant  used  for  finding  the  i+1  eigenvalue  is: 

pO)(M) . euiu , (,3, 

(P-Pi')  (P-Pi')(p-P2')  — (P-Pi‘) 

This  sweeping  procedure  is  quite  satisfactory  provided  that  all  pV  have  been  calculated  to  an 
accuracy  that  is  limited  only  by  round-off  error. 

For  problems  in  which  zero  is  an  eigenvalue,  the  number  of  such  eigenvalues  is  specified 
by  the  user.  In  using  the  determinant  method,  zero  eigenvalues  should  be  eliminated  from  the 
determinant  by  a preliminary  operation, 

d(°)([A])  = , (14) 

p" 

where  m is  the  multiplicity  of  the  zero  eigenvalue. 
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For  problems  with  conjugate  complex  eigenvalues  (complex  eigenvalue  analysis  with  real 
matrices)  the  conjugates  of  extracted  eigenvalues  should  also  be  swept  from  the  determinant. 
Thus 


where  p ^ ' is  the  conjugate  of  p^. It  should  be  noted  that  the  sweeping  equations  are  in- 
determinant for  p = p^ ' . This  situation  will  occur  when  a root  coincides  with  a starting 
point  or  a new  estimate  with  a root  already  extracted.  When  the  first  situation  occurs,  the 
starting  point  should  be  moved  away  tron  the  root.  When  the  second  situation  occurs,  D|^^^ 
should  be  set  equal  to  Dj^. 

4.88.6  Convergence  Criteria 

Convergence  criteria  are  based  on  successive  values  of  the  increment  hj^  in  the  estimated 
eigenvalue.  No  tests  on  the  magnitude  of  the  determinant  or  any  of  the  diagonal  terms  of  the 
triangular  decomposition  are  necessary  or  desirable.  Wilkinson^^^  shows  that  for  hj^  sufficiently 
small,  the  magnitude  of  is  approximately  squared  for  each  successive  iteration  when  using 
Muller's  method.  This  is  an  extremely  rapid  rate  of  convergence.  In  a very  few  iterations 
the  "zone  of  indeterminacy"  is  reached  within  which  h|^  remains  small  but  exhibits  random 
behavior  due  to  round-off  error.  Wilkinson  states  that  if  it  is  desired  to  calculate  the 
root  to  the  greatest  possible  precision,  the  convergence  criterion  ^or  accepting  P|^  as  a root 
should  be: 


The  determinant  method  accepts  this  advice,  tempered  by  practical  considerations.  The  first 
of  these  is  that  Equation  16  may  be  falsely  satisfied  during  the  first  few  iterations  while  the 
root  tracking  algorithm  is  picking  up  the  "scent".  Thus  it  must,  in  addition,  be  required  that 
l^^k-2^  reasonably  small.  The  second  practical  consideration  is  that  we  may 
waste  a few  iterations  within  the  zone  of  indeterminacy  while  waiting  for  Equation  16  to  be 
satisfied.  This  is  avoided  by  accepting  P|^  if  |h|^|  is  sufficiently  small.  Finally,  if  the 
number  of  iterations  becomes  excessively  large  without  satisfying  a convergence  criterion, 
the  Determinant  Method  assumes  the  existence  of  one  iteration  loop,  gives  up  and  proceeds  to 


(15) 


(p-p/)(p-Pi‘) 


k+l 


(16) 
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a new  set  of  starting  points. 

Figure  1 is  a flow  diagram  of  a set  of  tests  which  meet  the  requirements  discussed  above 
for  real  eigenvalue  problems.  The  tests  are  based  on  calculated  values  of  ffl , fT2,  and  H3 
which  are  defined  as: 


l^k-1 V IP|<I  ’ 

(17) 

^2  “ '1  I’^kl  ’ 

(18) 

H3  = Ihk+il/vj  IPkI. 

(19) 

where  Pj^  = k estimate  of  an  eigenvalue  and  = Pj^  - Pj,..]* 

A similar  set  of  tests  is  described  in  Figure  2 for  complex  eigenvalue  problems.  In 
this  case  ITl , fT2  and  fTs  are  defined  as: 


HI  = 

|hk-l  1 > 

(20) 

H2  = 

|hkl. 

(21) 

H3  = 

l^k+1 1 • 

(22) 

The  magnitude  of  the  convergence  criterion  e should  be  selected  as  a compromise  between 
running  time  and  accuracy.  Currently  e = 10”^^.  If  failure  occurs  because  the  number  of 

iterations  exceeds  the  iteration  limit,  NIT,  for  two  successive  sets  of  starting  points,  e 
is  increased  by  a factor  of  10.  If  successive  pairs  of  failures  still  occur,  e is  again  in- 
creased until  the  number  of  permissible  changes  in  e is  exceeded.  The  user  is  informed  of  the 
reduced  precision  of  the  calculations. 

Since  eigenvalues  are  swept  out  after  they  are  found,  all  sets  of  starting  points  will 
eventually  lead  to  failure  by  the  preliminary  range  checks  or  through  successive  iteration 
failure.  When  this  occurs  it  is  presumed  that  all  eigenvalues  within  the  range  of  interest  have 
been  found  and  the  calculations  are  halted.  If  for  some  reason  this  does  not  occur  the 
calculation  must  still  be  halted.  The  one  remaining  avenue  for  the  computer  to  continue 
calculations  indefinitely  is  if  it  continues  to  find  roots.  To  block  this  avenue,  the  calcula- 
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tions  are  stopped  if  the  number  of  roots  found  exceeds  the  maximum  number  of  As  a 

safeguard  the  order  in  which  the  roots  are  found  is  indicated  to  the  user. 

4.88.7  Extraction  of  Eigenvectors 

Once  an  approximate  eigenvalue  p.  has  been  accepted,  the  eigenvector  is  determined  by 

J 

back  substitution  into  the  previously  computed  triangular  decomposition  of  [A(p^.)].  Now  since 

[A(Pj)]{u}  = [L(Pj)][U(Pj-)]{u}  = 0,  (23) 

we  work  only  with  [U(p.)].  Because  partial  pivoting  (row  interchanges)  have  been  used,  the  last 

J 

diagonal  term  in  [U(p.)]  will  normally  be  the  only  term  with  a very  small  value.  The  normal 

J 

appearance  of  [U(p.)]  is  as  follows,  for  n = 7: 

J 


The  terms  in  the  upper  right  corner  are  zero  due  to  bandwidth.  6 is  a very  small  number.  The 
eigenvector  may  be  extracted  by  assigning  an  arbitrary  value  (such  as  1.0)  to  Uy  and  solving 
successively  for  Ug,  u^  etc.,  from  the  preceeding  rows.  Note  that  this  is  equivalent  to 
placing  a load  vector  {F}  on  the  right-hand  side  that  is  null  except  for  the  last  term  which 
is  set  equal  to  6. 

Situations  may  occur  in  which  U^^  is  not  the  smallest  diagonal  term.  Let  U^.^.  be  the 

smallest  diagonal  term  with  i < n.  The  most  common  reason  for  this  occurrence  is  that  the 

degrees  of  freedom  u^^-j,  are,  for  some  reason,  uncoupled  to  the  preceeding  degrees 

of  freedom.  In  this  case  all  of  the  elements  in  the  i^*^  row  of  [U(p.)]  will  be  very  small 

J 

as  shown  for  i = 4,  n = 7: 
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XXX 
X X 
X 


0 


X 0 0 0 
X X 0 0 
X X X 0 


644  645  646  647 

XXX 
X X 


X 


= (o). 


(25) 


In  the  event  of  multiple  or  pathologically  close  eigenvalues  two  or  more  rows  of  [U(p.)] 

J 

will  consist  of  very  small  values,  exhibited  below  for  the  very  exceptional  case  where  the  n^^ 
row  is  not  very  small: 


In  order  to  accommodate  the  exceptional  cases  described  above  with  the  more  general  case 
of  6 = a full  load  vector  {F}  is  used  for  the  eigenvector  calculations.  The  load  vector 
will  also  contain  elements  of  the  same  order  of  magnitude  as  the  smallest  diagonal  element  of 
the  triangular! zed  matrix  [U(p.)]  in  order  to  prevent  digital  overflow  when  the  eigenvector 

j 

is  calculated.  In  addition,  a distinct  load  vector  is  formed  for  each  eigenvalue  to  ensure 
that  independent  eigenvectors  are  calculated  for  multiple  or  pathologically  close  eigenvalue 
problems.  The  follov/ing  equations  are  used  for  {F}.  For  real  eigenvalues,  we  have 


(27) 


4.88-7 


MODULE  FUNCTIONAL  DESCRIPTIONS 


For  complex  eigenvalues, 


Re(F.) 


I'Sl  (-1)'^'  . 

1.0  + (1.0  - 1 ) j ' 


(28) 


Im(F^  = 0.0,  (29) 

where  6 = smallest  j = eigenvalue  count,  i = element  of  {F}  and  n = number  of  rows. 

There  is  a possibility  that  the  smallest  diagonal  element  of  [U]  may  be  exactly  zero  for 

some  eigenvalue.  This  will  be  the  case  when  the  accepted  eigenvalue  (p.)  is  exactly  equal 

j 

to  an  eigenvalue  of  the  problem.  When  this  ocxurs,  6 = 1.0  x 10”®.  The  calculated 
eigenvectors  are  normalized  to  a unit  maximum  real  element  value. 
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e-  Convergence  Criterion 
K - Iteration  Counter 
IC  - Criterion  Change  Counter 


HI  = Ihk.il  //W\ 
H2  = K1  /sf\\\ 

R3  = |h. 


k+ll  v/'lPkl 

Figure  1.  Real  eigenvalue  problems  convergence  tests 
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e-  Convergence  Criterion 
K - Iteration  Counter 
IC  - Criterion  Change  Counter 


HI  = Ihk.il 
H2  = Ihkl 
H3  = Ihk+il 


Figure  2.  Complex  eigenvalue  problems  convergence  tests 
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4.89  EXECUTIVE  PREFACE  M0DULE  IFP4  (INPUT  FILE  PROCESSOR  - PHASE  4) 

4.89.1  Entry  Point:  IFP4 

4.89.2  Purpose 

1.  To  convert  the  data  card  images  related  to  fluid  and  hydroelastic  analysis  into  conven- 
tional data  card  images  as  output  from  the  IFP  module. 

2.  To  calculate  data  related  to  the  boundaries  and  the  harmonic  degrees  of  freedom  of  the 
axisymmetric  fluid  and  append  this  data  to  the  MATP00L  data  block. 

4.89.3  Calling  Sequence 

CALL  IFP4.  IFP4,  an  Executive  Preface  Module,  is  called  only  by  the  Preface  driver  SEMINT. 

4.89.4  Input  Data  Blocks 

AXIC  - Bulk  Data  Deck  cards  related  to  the  hydroelastic  problem  as  output  from  IFP. 

GE0M1  - Grid  Point  and  Coordinate  System  Data. 

GE0M2  - Scalar  Point  and  Element  Connection  Data. 

GE0M4  - Constraint  Data. 

MATP00L  - Direct  Input  Matrix  Data. 

4.89.5  Output  Data  Blocks 

Same  as  the  Input  Data  Blocks. 

4.89.6  Parameters 

Not  applicable  to  IFP4. 

4.89.7  Method 

IFP4  allocates  the  available  core  as  it  proceeds.  Each  type  of  data  card  image  on  the  AXIC 
data  block  is  read  and  used  to  form  tables  or  new  data  card  images.  The  new  data  and  any  existing 
data  on  the  Input  data  blocks  are  merged  and  written  on  one  of  two  scratch  files.  After  the 
scratch  file  data  are  complete  the  data  are  then  copied  back  on  the  Input/Output  data  files.  (This 
is  not  normally  allowed.  The  preface  modules,  however,  have  the  privilege  of  writing  on  an  input 
file. ) 
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Data  cards  as  referenced  below  refer  to  card  images  as  found  on  the  AXIC  input  data  block. 
The  actual  data  cards  are  read  and  first  processed  by  the  IFP.  The  fluid  data  card  types  found 
on  the  AXIC  data  block,  and  used  by  IFP4,  are  listed  below  along  with  a list  of  the  output  card 
images  produced  as  a result  of  their  presence,  and  the  data  blocks  effected. 


IFP4  Input 

IFP4  Output 

Data  Block 

Card  Image 

Card  Image 

Effected 

AXIF 

none 

all  below 

BDYLIST 

data 

MATP00L 

CFLUID2 

CFLUID2 

GE0M2 

CFLUID3 

CFLUID3 

GE0M2 

CFLUID4 

CFLUID4 

GE0M2 

DMIAX 

DMIG 

MATP00L 

FLSYM 

data  (header) 

MATP00L 

FREEPT 

SP0INT 

GE0M2 

MPC 

GE0M4 

FSLIST 

CMFREE 

GE0M2 

SPC 

GE0M4 

GRIDB 

GRID 

GE0M1 

PRESPT 

SP0INT 

GE0M2 

MPC 

GE0M4 

RINGFL 

GRID 

GE0M1 

SEQGP 

GE0M1 

It  should  be  noted  that  the  output  card  images  may  be  a function  of  several  types  of  input 
card  images  as  detailed  in  the  following. 

4.89.7.1  Data  values  found  on  the  AXIF  card  are  first  stored  in  core  for  subsequent  use.  They 
are: 

1.  CS^,  the  coordinate  system  number  for  the  fluid  system 

2.  g,  the  value  of  gravity 

3.  p^,  the  default  value  of  fluid  density 

4.  B^,  the  default  value  of  the  compression  coefficient 

5.  N0SYM,  an  integer  0 or  1 indicating  whether  the  unsymmetric  (^series)  terms  are  used  in 
the  computations. 
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6.  A list  of  harmonic  numbers  n.,  j = 1,2,...,J,  indicating  the  harmonics  to  be  formulated. 

J 

If  none  are  supplied  by  the  user,  it  is  implied  that  the  fluid  is  not  to  be  solved,  how- 
ever the  processing  of  the  boundary  points  (GRIDB)  may  be  necessary  as  discussed  later. 


The  list  of  harmonic  numbers  (n.)  are  converted  to  an  in  core  list  of  index  numbers  (I-)  as 

J J 

follows. 

If  N0SYM=O,  implying  only  the  symmetric  series: 


l.  = Zn.^Z  , n . > 0 , 


for  j = 1 to  J. 

If  N0SYM=1 , implying  the  symmetric  and  unsymmetric  (*)  series: 


(1) 


Ij  = + 2 . nj  > 0 . (2) 

for  j = 1 to  J,  plus  the  additional  indices: 

I*  = 2nj  + 1 . n^  > 0 , (3) 

for  j = 1 to  J. 

The  list  of  indices  as  formed  above  is  sorted  and  held  in  core  for  subsequent  use.  The 
complete  list  of  indices  may  thus  be  up  to  2J  in  length.  Henceforth  the  number  of  indices  in  the 
list  is  referred  to  as  N. 


4.89.7.2  GE0M1  Data  Block  Processing 

1.  The  GE0M1  file  is  read  and  the  coordinate  system  as  specified  by  CS^  is  located  among  the 
C0RD1C,  C0RD2C,  C0RD1S,  or  C0RD2S  card  images.  Its  type  (cylindrical  or  spherical)  i<? 
saved  as  a flag  for  use  in  later  processing.  If  the  coordinate  system  is  not  located 
among  the  above  card  types  a fatal  error  is  indicated  to  the  user  and  a cylindrical  type 
is  assumed  to  permit  further  checking  of  data. 

2.  GRIDB  card  images  are  read  and  stored  in  core,  5 words  per  image.  A GRIDB  card  image 
defines  a normal  grid  point  except  that  it's  location  is  fixed  to  a fluid  (RINGFL)  point. 

3.  If  any  GRIDB  card  images  are  present  IFP4  at  this  time  forms  a boundary  list  table  in 
core. 
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4.  For  each  fluid  point,  IDF.,  contained  in  a BDYLIST  card  image,  a seven  word  entry  is 

J 

placed  in  the  boundary  list  table.  The  contents  of  this  entry  are,  using  data  from  the 
BDYLIST  card  image: 


1. 

IDFj 

2. 

1 \ 

3. 

1 V 

4. 

1 ) 

5. 

6. 

7. 

Pb 

Integer  I's  (temporary  flags) 


where  j indicates  the  respective  IDF  in  the  BDYLIST  list  of  IDFs. 

If  IDFj_-|  or  IDFj^^  does  not  exist  a zero  (0)  is  entered. 

If  designated  to  be  AXIS  then  a minus  one  (-1)  is  entered. 

Should  p|^  as  specified  in  the  BDYLIST  card  image  be  missing,  the  default  p^,  as  specified 
on  the  AXIF  card  image,  is  used  for  position  7 of  the  entry.  If  both  are  missing,  a user 
fatal  error  results.  Missing  is  denoted  by  an  integer  -1. 


After  all  BDYLIST  card  images  have  been  processed  and  the  entries  added  to  the  boundary 
list  table,  a sort  is  performed  such  that  the  entries  are  in  sort  by  the  primary  IDF 
(found  in  the  first  position  of  each  entry). 


5.  An  initial  "pass"  of  RINGFL  card  images  is  now  made.  The  meridinal  angles  (x2  for  a 

cylindrical  coordinate  system  or  x^  for  a spherical  system)  must  be  zero  and  are  checked. 
A binary  search  is  performed  to  find  one  or  more  entries  whose  primary  IDF  matches  the 
IDF  of  each  RINGFL  card  image.  When  found  the  values  XI,  X2,  and  X3  of  the  respective 
images  replace  the  three  integer  ones  in  position  2,  3,  and  4 of  that  entry.  If  an 
entry  is  not  found,  a user  fatal  error  is  indicated. 

If  after  all  RINGFL  card  images  have  been  [massed,  any  of  the  entries  in  the  boundary  list 
table  (residing  in  core)  still  contain  the  three  integer  ones  in  positions  2,  3,  and  4, 
a user  fatal  error  message  is  indicated  for  those  particular  BDYLIST  identification 
numbers  (IDF.s). 

J 
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6.  At  this  time  a normal  GRID  card  image  is  created  from  each  GRIDB  image  and  merged  along 
with  existing  GRID  card  images  on  GE0M1 . Additional  GRID  card  images  will  be  added  to 
GE0M1  in  subsequent  manipulations. 

For  each  GRIDB  card  image  now  residing  in  core  (note  4.89.7.2-2)  a normal  GRID  card  is 
created  and  consists  of  the  following  eight  values. 


Field 

1 

2 

3-5 


Symbol 


6 CS^ 

7 PS 

8 0 


Description 
ID  given  on  GRIDB  image. 

CS^  from  the  AX IF  image. 

These  values  are  formulated  by  finding  XI,  X2,  X3  in 
the  boundary  list  table  entry  whose  primary  identifica- 
tion number  matches  the  reference  identification  number 
(IDF)  given  on  the  GRIDB  card  image,  and  then: 

= XI 

x^  = (()  if  CS^  is  cylindrical,  or  X2  if  CS^  is  spherical, 
x^  = X3  if  CS^  is  cylindrical,  or  <\>  if  CS^  is  spherical. 

Where  <\>  is  supplied  by  the  GRIDB  card  image. 

CD  from  the  GRIDB  image. 

PS  from  the  GRIDB  image. 

Not  used. 


The  resulting  GRID  data  card  images  are  merged  with  the  existing  GRID  cards  on  data  blocks 
GE0M1 . If  no  harmonics  exist  for  the  fluid,  the  module  processing  is  complete. 

7.  To  generate  the  nonsymmetric  connection  tables  for  the  boundary,  the  boundary  list  table 
is  further  altered  at  this  time  to  result  in  a table  listing  the  geometry  and  related 
grid  points  for  each  boundary  fluid  point. 

a.  For  each  fluid  point  entry  now  in  the  boundary  list  table  the  values  XI,  X2,  and  X3 
are  converted  to  r and  z values  which  are  stored  respectively  in  place  of  XI  and  X2. 

If  CS^  is  cylindrical  then: 
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r = XI 
z = X3 
X2  must  be  zero. 


If  CS^  is  spherical  then: 

r = XI  sin(y^  X2^ 

. ■ *I  X2) 

X3  must  be  zero. 


(4) 


(5) 


For  each  set  of  three  fluid  point  identification  numbers  (position  1,  5,  and  6 of 
each  entry),  the  three  pairs  of  coordinates  are  extracted.  The  primary  values  r.  and 
Zj  are  given  with  each  entry.  The  secondary  values  -j  , must  be 

found  by  finding  the  entries  which  have  the  same  primary  identification  number  as  the 
secondary  identification  numbers  (IDFj^-|  or  IDFj_j_^ ) in  question.  If  "axis"  (-1)  is  a 
secondary  identification  number,  then: 


r . =0 

axis 


^axis 


(6) 


If  "not  available"  (0)  is  a secondary  identification  number,  then: 


r = Tj 


(7) 


The  values  il,  c,  and  s are  calculated  and  replace  the  4th,  5th  and  6th  word  of  each 
entry  in  the  boundary  point  list  at  this  time  such  that  each  entry  will  now  contain: 
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Field 

1 

2 

3 

4 

5 

6 
7 


Symbol 


Pb 


Description 

Fluid  point  identification 
Radial  location 
Vertical  location 

Length  and  associated  angle  components  of  a 
conical  section 

Fluid  density 


where: 


£ = VAr^  + Az^ 


(8) 


and: 


c = 


AZ 


AL 


(9) 


(10) 


Ar 


= Hvi  ■ "j-l  " 4^7 


AZ 


■ ■ Vi  * [<Vi  - '■jX'j  ■ Vi>  ■ •'■j  ■ ^ 

J 02) 


This  list,  now  referred  to  as  the  "boundary  point  geometry  table",  remains  in  core. 

The  values  il,  s,  and  c correspond  to  the  cross  section  length,  and  the  sine  and 
cosine  of  the  angle  \\)  as  given  in  Equation  14,  Section  16.1.5  of  the  Theoretical  Manual. 


c.  As  any  number  of  GRIDS  points  may  be  connected  to  a fluid  point,  the  GRIDS  card  images 
are  now  sorted  on  the  referenced  fluid  point  identification  (the  fifth  word  of  each 
GRIDS  entry).  For  each  set  of  GRIDS  points  with  the  same  referenced  fluid  point  the 
sort  is  further  made  on  the  angle  {<p). 


d.  The  boundary  point  geometry  table,  generated  above,  is  used  at  this  time  to  form  the 
boundary  matrix  part  of  the  MATP00L  data  block.  For  each  entry  in  the  table,  all 
GRIDS  points  which  reference  it  are  appended  to  form  a new  entry  of  the  following 
form. 
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Field 

Symbol 

Description 

1 

Id, 

Fluid  point  identification 

2-7 

r ,z,£,c,s,  P|^ 

Fluid  point  properties 

8 

idg(l) 

GRIDB  identification 

9 

^1 

Angular  position  of  GRIDB  point 

6+2M 

Idg(M) 

GRIDB  identification 

7+2M 

Angular  position  of  GRIDB  point 

8+2M 

-1 

End  of  entry  flags 

9+2M 

-1 

where  M equals  the  number  of  GRIDB  points  that  reference  Id^.  Each  new  boundary  fluid 
point  entry  is  then  placed  in  the  MATP00L  data  block.  The  list  of  harmonic  indices 
nj,  the  gravity  G,  the  N0SYM  flag,  the  fluid  coordinate  system  CS^,  and  the  symmetric 
boundary  information  (from  the  FLSYM  card  image)  are  placed  in  the  first  record  of 
the  boundary  list  data  in  the  MATP00L  data  block.  If  DMIG  data  card  images  resulting 
from  DMIAX  data  cards  are  present  on  the  MATP00L  data  block,  they  are  merged  to  the 
existing  DMIG  card  image  data.  Matrix  names  are  checked  for  uniqueness. 

The  RINGFL  data  cards  define  a ring  (fluid  point)  with  its  axis  coincidental  with  the 
axis  of  the  fluid  coordinate  system.  Its  degrees  of  freedom  are  the  harmonics  of  the 
pressure  around  the  circle.  Special  GRID  point  card  images  corresponding  to  the  RINGFL 
data  cards  are  generated  at  this  time  and  added  to  the  GRID  card  images  now  on  GE0M1 . 

Each  RINGFL  card  image  is  read  and  N GRID  card  images  are  created  containing  the  following 
data. 
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Field 

Value 

Description 

1 

Id^  + 5.10^- (I.) 

Point  identification 

2 

CS^ 

Fluid  coordinate  system  number 

3-5 

XI  ,X2,X3 

Location  coordinates 

6 

-1 

Fluid  point  flag 

7 

0 

Permanent  single  point  constraints 

8 

0 

Not  used 

where  i goes  from  1 to  N for  each  RINGFL  card  image  read. 

SEQGP  card  images  are  created  for  each  RINGFL  card  image  and  merged  with  SEQGP  cards  on 
GE0M1.  The  contents  of  the  entry  are: 


Field 

Value 

Description 

1 

Id^  + 5-10^*(I.) 

Grid  identification 

2 

Id^-lO^  + (I.-l) 

Sequence  number 

where  i goes 

from  1 to  N for  each 

RINGFL  data  card  image. 

4.89.7.2  GE0M2  Data  Block  Processing 

1.  The  fluid  element  connections  as  specified  by  the  CFLUID2,  CFLUID3,  and  CFLUID4  card 
images  are  now  operated  upon.  Each  input  card  image  is  used  together  with  the  harmonic 
indices  to  define  N "structural  elements".  The  data  given  by  the  input  card  image  is: 


Field 

Value 

Description 

1 

Element  identification  number 

2 thru  j+1 

Where  j = 2,  3,  or  4 fluid  point 
connections 

j+2 

P 

Fluid  density 

j+3 

B 

Fluid  bulk  modulus 

For  each  input  card  image. 

connection  card  images  are  created  for  all  harmoni' 

problem.  Their 

format  is: 
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Field 

Val  ue 

Descri ption 

1 

IV'»’  * I, 

Converted  element  identification 

2 thru  j+1 

Idj  + 5. 10^(1.) 

Where  j =2,  3,  or  4 connected  fluid  points 

j+2 

P 

Fluid  density 

j+3 

B 

Fluid  bulk  modulus 

j+4 

n 

Harmonic  number 

where  i = 1 , 2, 

. . . , N and  n is  an 

integer  such  that. 

U - I 

< n < -^2 


The  harmonic  element  connection  card  images  are  merged  into  the  GE0M2  data  block  as  they 
are  generated. 


FSLIST  card  images  each  define  a sequential  list  of  fluid  (RINGFL)  points  on  a free 
surface.  The  FREEPT  card  images  input  to  IFP4  each  define  a point  on  the  free  surface 
where  a displacement  may  be  output.  The  following  operations  are  a result  of  FSLIST  and 
FREEPT  card  images  data. 


For  each  fluid  point  (IDFj)  defined  in  a FSLIST  card  image,  a three  word  entry  is  placed 
in  core  containing  IDFj,  IDF^^^,  and  p.  The  subscript  j indicates  the  respective  IDF  in 
the  FSLIST  card  image  list  of  IDFs.  if  IDFj  or  IDFj^^  is  represented  by  “AXIS"  in  the 
FSLIST  card  image,  a minus  one  (-1)  is  used.  If  IDF.  is  the  last  point  in  the  list, 

J 

IDFj^^  is  set  to  -2.  If  the  fluid  density  (p)  is  not  present  (an  integer  -1)  in  the 
FSLIST  card  image,  the  default  fluid  density  (p^)  from  the  AXIF  image  is  used.  If  both 
and  p^  are  missing  a user  fatal  error  results. 


A set  of  structural  mass  elements  are  generated  for  each  of  the  entries  just  added  to 
core.  Each  set  represents  all  harmonics  in  the  problem.  Connection  card  images  called 
CMFREE  elements  are  created  such  that  each  element  consists  of  the  following: 
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Field 

Symbol 

Description 

1 

Id 

Element  Id  = lO^k  + I^. 

2 

Idg, 

'“fk.l  * 'i 

3 

Idg2 

I"fk,2  * 

4 

(p  times  G)  the  weight  density,  where 
gravity  from  AXIF  image 

5 

n 

Integer  harmonic  number  such  that; 

where  represents  the  i entry  in  the  harmoric  index  list,  and  k is  the  index  of  the 

entry  in  the  FSLIST  table  of  entries.  If  IDFj^  i = -1,  IDFj^  ^ is  set  to  IDFj^  2* 

IDFk  2 " ^^^k  2 ^^^k  1’  initially.  Thus  for  each 

entry,  k = 1 thru  K (the  total  number  of  entries),  CMFREE  images  are  created  for  all 
harmonic  indices  (I^. ),  i =1  thru  N.  These  CMFREE  element  entries  are  merged  into  the 
GE0M2  data  block  as  were  the  CFLUID2,  CFLUID3,  and  CFLUID4  card  images. 


.89.7.4  GE0M4  Data  Block  Processing 

1.  If  FREEPT  (free  surface  displacement  point)  card  images  are  present,  and  gravity  as 
specified  in  the  AXIF  card  image  is  nonzero,  a multipoint  constraint  (MPC)  is  generated 
at  this  time  along  with  a scalar  point  (SP0INT)  having  the  same  identification  number 
(Idp)  as  specified  by  each  FREEPT  card  image.  As  each  FREEPT  card  is  read  an  SP0INT  card 
image  is  placed  in  core  and  the  following  MPC  card  image  is  merged  into  the  MPC  data  of 
GE0M4: 


4.89-11  (11/1/70) 


EXECUTIVE  PREFACE  MODULE  IFP4  (INPUT  FILE  PROCESSOR  - PHASE  4) 


Field 

Symbol 

Value 

Description 

1 

SID 

102 

Set  identification  number 

2 

6ID 

FREEPT  identification  number 

3 

Comp 

0 

Component 

4 

-|pG| 

Density  times  gravity 

( 2+3i 

GID. 

Id^+5-10^(I.) 

Fluid  point  harmonic  identification 

Repeats  for  / 
i=l  to  N V 

Comp 

0 

Component 

( 4+3i 

s- 

Harmonic  coefficient 

5+3N 

Flag 

) 

6+3N 

Flag 

End  of  mage  flag 

7+3N 

Flag 

I^.  is  a harmonic  index,  and  n equals  an  integer  such  that; 

I.  - 3 _ li  - 1 

2 ^ ^ 2 * 


then: 


C. 

1 


Ci 


cosine  ^ 


sine  ^ 


if  I^  is  even, 
if  I^.  is  odd. 


(14) 


(15) 


where:  (j)  is  the  angle  given  in  the  FREEPT  card  image. 


2.  Additional  MPC  card  images  are  created  if  PRESPT  card  images  are  present.  For  each 
PRESPT  card  image  read,  an  SP0INT  is  added  to  the  in-core  list  of  SP0INTs,  and  the  foil 
ing  MPC  card  image  is  merged  onto  GE0M4. 
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Field 

Symbol 

Value 

Description 

1 

SID 

102 

Set  identification 

2 

GID 

PRESPT  identification 

3 

Comp 

0 

Component 

4 

-1.0 

Coefficient 

/ 2+3i 

GID. 

Id^+5. 10^(1.) 

Connected  fluid  harmonic  identification 

Repeat  for  ) 
i=l  to  N \3+3i 

Comp 

0 

Component 

1 4+3i 

^+1 

Hariionic  coefficient 

• 

• 

• 

• 

5+3N 

Flag 

-1 

6+3N 

Flag 

-1 

End  of  image  flag 

7+3N 

Flag 

-1 

I^.  is  a harmonic  index,  and  n equals  an  integer  such  that. 


< n < (16) 


Ci 

nTTd) 

= cosine^ 

if  I. 

is 

even. 

niTcl) 

= sine^ 

if  I. 

is 

odd. 

0 is  the  angle  given  in  the  PRESPT  card  image. 


3.  If  any  SP0INTs  were  placed  in  core  as  a result  of  the  presence  of  FREEPT  or  PRESPT  card 
data,  they  are  merged  with  the  existing  scalar  point  data  on  a scratch  file. 


4.  At  this  time,  if  any  harmonics  are  specified,  an  MPCADD  card  image  is  generated  for  each 
unique  set  identification  present  in  the  MPC  an  i MPCADD  card  images  on  GE0M4.  This 
MPCADD  card  image  will  then  contain  the  in:ernf'.l  set  identification  and  include  the  user 
set  identification.  Thus  as  the  MPC  and  I ^CADD  card  images  are  read  from  GE0M4,  a list  of 
the  set  identifications  present  is  created  in  core.  An  MPCADD  card  is  then  generated  for 
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each  unique  set  identification  (Id)  present.  Its  format  is: 


Field 

Val  ue 

Description 

1 

2-10^  + Id 

Internal  set  identification 

2 

Id 

User  set  identification 

3* 

102 

Generated  MPC  set  identification 

3 or  4* 

-1 

End  of  image  flag 

If  any  MPCADD  card  images  are  present  on  GE0M4,  as  a result  of  the  user's  specifications, 
their  set  identification  (Id)  in  field  one  is  modified  to  an  internal  set  identification 

g 

(2 '10  + Id),  and  if  any  MPC  card  images  have  been  internally  generated  for  set  102,  the 
102  set  identification  is  added  to  the  list  of  included  set  identifications  therein. 

If  any  MPC  card  images  have  been  created  for  set  102,  the  following  MPCADD  card  is  gener- 
ated in  any  event  so  as  to  assure  that  the  102  set  be  included  in  the  solution.  The  set 

g 

identification  used  here  (2*10  ),  will  be  referenced  in  later  computations  if  the  user 
has  not  referenced  any  MPC  constraint  set. 


Field 

1 

2 

3 


Val ue  Description 

o 

2*10  Set  identification 

102  Generated  MPC  set  to  be  included 

-1  End  of  image  flag 


5.  Should  the  user  specify  gravity  G to  be  zero  (0)  on  the  AXIF  card,  it  is  assumed  that  the 
effects  of  gravity  on  the  free  surface  are  to  be  removed.  To  accomplish  this,  a single 
point  constraint  (SPC  set  102)  set  is  created  at  this  time  by  IFP4. 

For  each  fluid  point  Id^  not  equal  to  minus  one  (-1)  or  minus  two  (-2)  in  the  free 
surface  list,  an  SPCl  card  image  is  merged  onto  GE0M4  containing  the  constraint  informa- 
tion for  all  harmonics  of  this  point.  Its  format  is  the  following: 


*Set  identification  102  is  inserted  only  if  any  MPC  card  images  have  been  generated  for  set 
102.  If  Id  = 102  a user  fatal  error  is  indicated. 
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Field 

Value 

Description 

1 

102 

Set  identification 

2 

0 

Component  to  be  constrained 

2+1 

Id^  + 5*10^  I. 

Point  to  be  constrained 

2+i 

Id^  + 5*10^  I. 

Point  to  be  constrained 

2+N 

Id^  + 5-10^ 

Point  to  be  constrained 

3+N 

-1 

End  of  image  flag 

I^.  is  the  entry  in  the  list  of  harmonic  indices. 

6.  Analogous  operations  to  those  described  in  paragraph  (4)  of  this  section  are  performed  at 
this  time  for  existing  SPC,  SPCl  and  SPCADD  card  images.  The  data  is  merged  onto  a 
scratch  file  and  when  complete,  the  scratch  file  is  merged  onto  the  GE0M4  data  block. 

4.89.8  Subroutines 

4.89.8.1  Subroutine  Name:  IFP4A 

1.  Entry  Point:  IFP4A 

2.  Purpose:  To  write  the  first  line  of  the  user  fatal  error  messages. 

3.  Calling  Sequence:  CALL  IFP4A(NUM) 

NUM  - Message  number  minus  4030. 

4.89.8.2  Subroutine  Name:  IFP4B 

1.  Entry  Point:  IFP4B 

2.  Purpose  : To  copy  data  from  IFP  data  files  up  to  and  including  a given  record  onto  a 
scratch  file.  On  option  the  data  on  the  scratch  file  may  be  copied  onto  the  original 
data  block. 
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3.  Calling  Sequence: 

CALL  IFP4B(FILE,SCRT,ANY, SPACE, LSPACE,RECID,E0F) 


where: 


FILE 

SCRT 

ANY 

SPACE 

LSPACE 

RECID 


E0F 


File  Number 
Scratch  File  Number 

Flag  = .TRUE,  if  RECID  is  found  on  FILE, 

= .FALSE,  if  record  is  missing 

Area  of  core  for  working  space 

Length  of  working  space 

Record  Number  of  FILE  where  the  copy  process  stops.  If  -1  is 
used  the  copy  process  proceeds  to  the  end  of  FILE  and  the  data 
on  SCRT  is  copied  back  onto  FILE. 

Flag  = .TRUE,  if  end  of  record  is  encountered  on  return. 


4.89.8.3  Subroutine  Name:  IFP4C 

1.  Entry  Point:  IFP4C 

2.  Purpose:  To  open  an  IFP  generated  file  and  a scratch  file  and  to  copy  the  header  record 
from  the  IFP  file  onto  the  scratch  file. 


3.  Calling  Sequence: 

CALL  IFP4C(FILE,SCRT,BUF1 ,BUF2,E0F) 


where: 


FILE  - 

File  number 

SCRT  - 

Scratch  file  number 

BUFl  - 

Buffer  area  in  core 

for  reading 

FILE 

BUF2  - 

Buffer  area  in  core 

for  writing 

SCRT 

E0F  - 

Flag  = .TRUE,  if  FILE  is  null 

4.89.8.4  Subroutine  Name:  IFP4E 

1.  Entry  Point:  IFP4E 

2.  Purpose:  To  check  identification  numbers  of  fluid  points  for  possible  difficulties  with 

large  numbers. 
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3.  Calling  Sequence:  CALL  IFP4E(ID) 

where: 

ID  - Identification  number 

4.89.8.5  Subroutine  Name:  IFP4F 

1.  Entry  Point:  IFP4F 

2.  Purpose:  To  test  if  a bit  in  a trailer  record  word  is  on  or  off. 

3.  Calling  Sequence:  CALL  IFP4F(IBIT, FILE, BIT) 

where: 

IBIT  - Position  of  bit  in  trailer 

FILE  - File  number 

BIT  - Flag  = .TRUE,  if  bit  is  on 

= .FALSE,  if  bit  is  off 

4.89.8.6  Subroutine  Name:  IFP4G 

1.  Entry  Point:  IFP4G 

2.  Purpose:  To  turn  on  a bit  nn  a trailer  record. 

3.  Calling  Sequence:  CALL  IFP4F(IBIT,FILE) 

where: 

IBIT  - Position  of  bit  in  trailer 
FILE  - File  number 
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4.90  FUNCTIONAL  MODULE  BMG  (BOUNDARY  MATRIX  GENERATOR  FOR  HYDROELASTIC  PROBLEMS) 

4.90.1  Entry  Point:  BMG 

4.90.2  Purpose 

The  MATP00L  data  block  may  contain  data  related  to  fluid  boundaries  which  is  generated  by  the 
IFP4  preface  module.  The  purpose  of  this  module  is  to  combine  these  data  with  the  geometry  data 
(EQEXIN,  BGPDT,  and  CSTM  data  blocks)  to  produce  matrix  terms  which  describe  fluid-structure  con- 
nection forces.  These  matrix  terms  are  produced  in  the  form  of  internal  DMIG  data  card  images.  The 
module  MTRXIN  must  always  be  used  in  conjunction  with  module  BMG  to  produce  NASTRAN  matrices. 

4.90.3  DMAP  Calling  Sequence 

BMG  MATP00L, BGPDT, EQEXIN, CSTM  / BDP00L  / V,N,N0KBFL  / V,N,N0ABFL  / V,N,MFACT  $ 

4.90.4  Input  Data  Blocks 

MATP00L  - Direct  Input  Matrices  and  Hydroelastic  Boundary  data. 

BGPDT  - Basic  Grid  Point  Definition  Table. 

EQEXIN  - Equivalence  between  External  and  Internal  Grid  Point  numbers. 

CSTM  - Coordinate  System  Transformation  Matrices. 

4.90.5  Output  Data  Blocks 

BDP00L  - Boundary  Matrices  ABFL  and  KBFL  in  DMIG  Format. 

4.90.6  Parameters 

N0KBFL  - Existence  of  KBFL  Matrix  Data  = 0, 

No  KBFL  Data  = -1,  output  parameter. 

N0ABFL  - Existence  of  ABFL  Matrix  Data  = 0, 

No  ABFL  Data  = -1,  output  parameter. 

MFACT  - Complex  Factor  for  Symmetric  Structures,  output  parameter. 

4.90.7  Method 

The  fluid  boundary  data,  contained  in  the  MATP00L  data  block,  is  grouped  by  the  fluid  points 
on  the  boundary.  For  each  fluid  point  the  geometric  parameters  of  the  surface  and  the  positions 
of  the  associated  grid  points  are  listed.  The  input  data  read  for  each  fluid  point  are  operated  | 
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on  to  produce  matrix  terms.  The  output  matrix  data  are  written  on  two  files.  The  ABFL  matrix  terms 
are  written  on  the  BDP00L  file.  The  KBFL  data  are  written  on  a scratch  file.  After  the  processing 
of  the  input  file  is  complete,  the  KBFL  data  is  appended  to  the  BDP00L  file. 

During  the  processing  the  core  is  allocated  for  the  geometry  data  blocks.  For  each  fluid 
point,  tables  are  also  created  which  must  fit  in  the  remaining  core.  The  following  description 
lists  the  form  of  the  input  data  and  the  various  steps  used  in  the  process. 

4.90.7.1  Form  of  the  Boundary  Data  Record  on  the  MATP00L  Data  Block 

Three  levels  of  data  are  contained  within  this  record.  The  first  level  is  a list  of  the  over- 
all definition  parameters  of  the  fluid  and  the  boundary.  The  second  level  consists  of  fluid  points 
and  their  associated  data.  Attached  to  each  fluid  point  is  a third  level  consisting  of  a list  of 
the  connected  structural  grid  points  and  their  angular  position  on  the  fluid  circle.  The  actual 
data  in  the  record  are: 

1.  Header  data: 


Symbol 

Descriotion 

CS^ 

Fluid  coordinate  system  identification 

M 

Number  of  symmetric  sections 

51 

52 

Symmetry  definitions  of  first  and  second  boundary 

g 

Value  of  gravity 

N0SYM 

Flag  for  n*  series 

k 

Number  of  harmonic  indices  below 

H-j  >n2  9 . . . ,n  j , . . . , n|^ 

List  of  harmonic  indices 
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2.  Fluid  point  data 

Symbol 

Id 


fl 
N 

g 


'^1 

Id. 


Id. 

1 


Id. 


Id 


f2 


Description 

First  fluid  point  (RIN6FL)  identification 

Fluid  point  properties 

Number  of  connected  grid  points  below 

Grid  point  identification 

Angular  position  of  First  grid  point 


(grid  point  data) 


Second  fluid  point 


etc. 


etc. 


4.90.7.2  Selection  o-^  “armonics  to  Match  Boundary  Conditions 

★ 

The  Header  Record  for  the  boundary  data  is  read  and  a list  of  harmonics  (n.  and  n.)  to  be 

j J 

included  in  the  matrices  are  precalculated.  If  N0SYM  = YES,  the  indices  for  the  sine  series  will 

* 

be  included.  A test  is  made  on  each  value  of  n and  n using  the  values  of  SI  and  S2  in  the  header 
data. 

1.  If  M = 0 or  1 accept  all  values  of  n and  n*. 

2.  If  SI  = S2,  Calculate: 

K ■ T 
★ 

a.  If  K is  not  an  integer  reject  n or  n 

b.  If  K is  an  integer: 

accept  n if  SI  = S 
* 

accept  n if  SI  = A 
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3.  If  SI  f S2,  calculate: 


a.  If  K is  not  an  integer  reject  n or  n* 

b.  If  K is  an  integer: 

accept  n if  SI  = S 
accept  n*  if  SI  = A 

A list  of  allowable  values  of  n and  n*  is  built  in  core.  If  the  final  list  is  null,  only  the 

KBFL  matrix  is  generated.  The  parameter  MFACT  is  the  complex  number  (M,0)  if  M is  nonzero.  The 

value  (1,0)  is  used  if  M is  zero. 

4.90.7.3  Formation  of  Geometry  Table  for  Internal  Use 

The  core  is  allocated  for  the  BGPDT  data  block  and  an  extra  word  for  each  of  its  entries. 

The  data  is  read  in  groups  of  four  words  and  stored  in  five  word  entries,  reserving  the  first  word 

for  the  external  identification  number.  The  EQEXIN  data  contains  a paired  list  of  external  and 
internal  numbers.  The  EQEXIN  is  read  and  the  external  numbers  are  placed  in  the  corresponding 
BGPDT  entries  in  core.  The  resulting  BGPDT  data  are  sorted  on  the  external  identification  numbers. 
The  referenced  coordinate  system  number  and  the  basic  location  vector  for  any  grid  point  are  now 
available  by  using  a single  binary  search. 

4.90.7.4  CSTM  Processing 

The  CSTM  data  block  is  now  read  and  stored  in  core.  The  fluid  coordinate  system  identifica- 
tion number,  CS^.  is  found  and  the  3 by  3 transformation  matrix,  [T^^],  is  extracted  directly  from 
the  data. 

4.90.7.5  File  Initialization 

The  processing  of  the  matrix  data  may  now  begin.  The  files  for  the  ABFL  and  KBFL  output  data 
are  opened  and  the  matrix  header  data  is  written.  The  boundary  data  on  the  MATP00L  data  block  are 
read  and  one  fluid  point  at  a time  is  processed. 
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4.90.7.6  Calculations  of  Areas  Associated  with  Boundary  Grid  Points 

The  first  set  of  the  parameters  Id,  r,  z,  c^,  S^,  and  P|^  are  read  for  the  fluid  point 
where  k = 1 if  the  fluid  point  has  only  one  entry  or  k = 1 , 2,  3. . . if  the  fluid  point  is  connected 
with  multiple  boundaries.  The  connected  grid  point  numbers  (Id^. ) and  angles  ) are  read  and  placed 
in  core.  Twenty-six  words  are  allocated  for  each  grid  point. 

For  each  connected  grid  point  the  calculated  data  are: 


(1) 

Idi 

(2) 

♦i 

(3) 

4’Oi 

(4) 

d>li 

(5-22) 

[V,.] 

(23-26) 

{W.} 

Identification  number 
Azimuthal  angle  (radians) 

Angle  midway  to  previous  point 
Angle  midway  to  next  point 
3x3  double  precision  transformation 
3x1  vector 


The  midway  angles  are  defined  in  general  as: 


^Oi 


*11 


^1-1 


(3) 


The  angles  for  the  first  point  are: 


^*J  9 M > 2 , 


4>1  + (|>M  - 27r 

‘‘til  = — 1 — • 


(4) 


The  angles  for  the  last  point  are; 


nN 


. M > 2 , 


t>Hj  + <|)l  + 2ir 


(5) 


, M = 0 


All  of  the  grid  point  data  are  sorted  on  the  grid  point  numbers  before  the  transformations  [V^]  and 
{W^}  are  calculated. 
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The  equations  for  the  transformation  matrices  are: 

[V,]  - [VI  . 

(6) 

{»}  • 

Where  [T^. ] is  the  3 by  3 global -to-basic  transformation  matrix  for  grid  point  i. 

4.90.7.7  Calculation  of  Matrix  Terms 

The  matrix  terms  corresponding  to  one  fluid  point  are  generated  for  the  ABFL  and  KBFL  data 

tables  at  this  stage.  The  ABFL  matrix  terms  are  generated  as  follows: 

★ 

1.  For  each  allowable  value  of  n or  n a matrix  column  is  generated  in  the  ABFL  table.  The 

internal  numbers,  Gj,  for  the  fluid  point  identification  number,  Id^,  are: 

G.  = Id^  + (n  + 1)10^  cosine  series 

J ^ 

★ 

Gj  = Id^  + ^ sine  series 

These  numbers  label  the  column  of  the  matrix. 


2.  Each  row  position  in  the  matrix  is  labeled  by  a grid  point.  Id.,  and  its  three  components 
C = 1,  2,  3.  The  values  corresponding  to  these  positions  are  the  values  of  the  vector 


{Ain)  where: 


cos  4)^. 


(7) 


The  vector  {A.  } is  similar.  The  coefficients  are: 
in 


A° 

''ik 


■ ‘t’oi^  • n ■ 0 


a" 

^k 


rt. 


= — [sin(n<fi.|^)  - sinCncfiQ^.)]  , n > 0 


(8) 


rt. 


A' 

^k 


^ [cos(n*(t)i .)  - cos  (n\^.)]  , n*  > 0 
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where  k = 1 , 2,  3,  . . . is  an  index  if  the  fluid  point  occurs  more  than  once  in  the 
boundary  list  tables. 


3.  If  gravity,  g,  is  nonzero  the  KBFL  matrix  terms  are  calculated.  Each  grid  point,  Id^. , 
connected  to  the  fluid  point  is  used  to  produce  three  columns  of  the  matrix  corresponding 
to  the  three  components,  C.  = 1,  2,  3.  The  three  rows  for  each  column  are  the  same  three 

J 

components,  C^.  = 1,  2,  3,  of  the  grid  point.  The  equation  for  the  three  terms  in  each 
column  is: 


{K.}.  = 


C,^  cos 

s,. 


where: 

U 

is  the  j ^ component  of  {W^}  and: 


(9) 


(10) 


k is  the  index  used  if  the  points  are  included  in  more  than  one  boundary  list  entry. 


^.90.7.8  Wrapup  Operation 

The  final  operations  involve  rewinding  the  scratch  file  containing  the  KBFL  data  and  appending 
that  data  to  the  BDP00L  data  block  output  file. 

4.90.8  Additional  Subroutines 

BMGTNS  - This  routine  is  a slightly  modified  version  of  utility  subroutine  PRETRD  so  as  to 
have  only  one  entry  point. 

4.90.9  Design  Requirements 

The  major  core  requirements  are  that  the  BGPDT  data  must  fit  and  that  twenty-six  words  for 
each  boundary  grid  point  converted  to  on£  fluid  point  must  fit  in  core. 
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4.90.10  Diagnostic  Messages 

The  following  system  fatal  messages  may  be  issued  by  BMG: 

***SYSTEM  FATAL  MESSAGE  2148,  C00RDINATE  SYSTEM  = XXXXX  CAN  N0T  BE  FOUND  IN  CSTM  DATA. 
***SYSTEM  FATAL  MESSAGE  2149,  C0NNECTED  FLUID  P0INT  ID  = XXXXX  IS  MISSING  BGPDT  DATA. 
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4.91  EXECUTIVE  PREFACE  MODULE  IFP5  (INPUT  FILE  PROCESSOR  - PHASE  5) 

4.91.1  Entry  Point:  IFP5 

4.91.2  Purpose 

1.  To  convert  the  data  card  images  related  to  acoustic  analysis  into  conventional  grid 
points  and  elements. 

2.  To  calculate  slot-cavity  interface  matrix  terms  and  generate  corresponding  scalar 
elements . 

3.  To  generate  plot  elements  describing  the  sides  of  the  acoustic  elements. 

4.91.3  Calling  Sequence 

CALL  IFP5.  IFP5,  an  Executive  Preface  Module,  is  called  only  by  the  Preface  driver  SEMINT. 

4.91.4  Input  Data  Blocks 

AXIC  - Contains  Bulk  Data  Cards  related  to  the  acoustic  parameter,  points,  and  boundaries. 
GE0M1-  Grid  point  and  coordinate  system  data 
GE0M2-  Element  Data,  including  acoustic  elements. 

4.91.5  Output  Data  Blocks 

GE0M1  - Same  format  as  input,  acoustic  points  are  merged  in  as  GRID  points. 

GE0M2  - Same  format  as  input,  scalar  elements  and  plot  elements  are  added. 

4.91.6  Parameters 

Not  applicable  to  IFP5 

4.91.7  Method 

IFP5  converts  the  data  on  the  AXIC  data  block  into  conventional  grid  points  and  elements. 
The  GE0M1  and  GE0M2  data  are  read  and  merged  with  the  new  data  on  scratch  files.  The  complete 
data  sets  are  copied  back  onto  the  GE0M1  and  GE0M2  files.  (This  is  not  normally  allowed  in  a 
NASTRAN  Module.  The  preface  modules,  however,  have  the  privilege  of  writing  on  an  input  file.) 

The  data  cards  listed  below  are  processed  by  IFP5.  The  corresponding  output  card  image  and 
its  data  block  are  given  for  each  card. 
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IFP5  Input 

Data  Block 

Card  Image 

In 

AXSL0T 

AXIC 

CAXIF2') 
CAXIF3/ 
CAXIF4> 
CSL0T3  \ 
CSL0T4  ; 

GE0M2 

GRIDF  \ 
GRIDS  J 

AXIC 

BDYLIST 

AXIC 

IFP5  Output 
Card  Image 

Data  Block 
Out 

(all  below) 

ICAXIF3/ 

)CAXIF4l 

\CSL0T3( 

/CSL0T41 

\PL0TELj 

(all  below) 
GE0M2 

GRID 

GE0M1 

CELAS2 

GE0M2 

It  should  be  noted  that  the  formats  of  the  CAXIFi  data  cards  are  exactly  the  same  as  the  CFLUIDi 
data  cards  as  generated  by  IFP4,  Section  4.89.  The  following  steps  are  followed  to  process  the 
data: 

1.  The  AXSL0T  card  is  read  from  the  AXIC  file,  its  data  are: 

“ default  density 
- default  bulk  modulus 
N - harmonic  number 
w^  - default  slot  width 
M - Number  of  slots 

2.  The  GRIDS  data  card  images  are  read  and  stored  in  core.  The  contents  of  each  card  are: 


Id^  - identification  number 

r - radius 

( 

z - axial  coordinate 

w - slot  width 

Id^  - identification  of  assoicated  GRIDF 

3.  The  GRIDF  data  card  images  are  read  and  stored  in  core.  The  contents  of  each  card  are 

Id^  - identification  number 

r - radius 

z - axial  coordinate 
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4.  If  the  value  in  field  5 of  GRIDS  card  is  nonzero  an  IDF  card  is  generated  with  the 
values  Id^,  r,  z as  given  on  the  GRIDS  card.  These  cards  are  added  to  the  GRIDF  images 
and  the  complete  list  of  GRIDF  cards  is  sorted. 

5.  Data  blcok  GE0M1  is  copied  onto  the  first  scratch  file  up  to  the  first  GRID  card.  The 
GRIDF  and  GRIDS  cards  are  merged  with  the  GRID  cards  in  the  GRID  card  format  as  follows: 


GRID  Field 

Value  GRIDF 

Value  GRIDS 

1 

idf 

2 

0 

0 

3 

r 

r 

4 

z 

z 

5 

0 

w 

6 

-1 

-1 

7 

0 

0 

6.  The  remainder  of  GE0M1  is  copied  onto  the  scratch  file.  The  scratch  file  is  then  copied 
back  onto  GE0M1 , starting  from  the  beginning. 

7.  The  SLBDY  data  card  images  are  read  from  the  AXIC  data  block.  For  each  entry,  Id^.  on  a 
logical  card,  five  words  are  alocated  in  core  and  the  following  is  stored. 

Id.,  Id._-,,  Id.^.j,  RH0,  M 

where  Id^.  is  a point  number  in  the  list 

Id^._1  is  the  previous  point  number  in  the  list 
Id^.^1  is  the  next  point  number  in  the  list 
RH0,  M are  given  on  the  logical  card 

If  Id^.  is  the  first  entry  on  a logical  card,  Id^._-|  = -1 . If  Id^.  is  the  last  entry  on  a 
logical  card,  Id^-^-j  = -1. 

8.  After  all  SLBDY  cards  are  processed  the  above  list  is  sorted  on  the  first  entry  in  each 
group  of  5. 

9.  Plot  elements  (PL0TEL)  are  generated  and  placed  on  the  first  scratch  file.  The  GE0M2 
data  block  is  read  and  for  each  (AXIFi)  data  card  a series  of  PL0TEL  cards  are  generated 
and  written  on  the  first  scratch  file  (SCRTl). 
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CAXIF2  Data 

Id 

G1 

G2 

P 

B 

N 


CAXIF3  Data 

Id 

G1 

G2 

G3 

P 

B 

N 


CAXIF4  Data 

Id 

G1 

G2 

G3 

G4 

P 

B 

N 


PL0TEL  Data 

Id  + 10^ 

G1 

G2 


PL0TEL  Data 

Id  + 2-10^ 
G1 
G2 

Id  + 3-10^ 
G2 
G3 

Id  + 4-10^ 
G3 
G1 


PL0TEL  Data 

Id  + 5-10^ 
G1 
G2 

Id  + 7-10® 
G3 
G4 


Id  + 6-10^ 
G2 
G3 

Id  + 8-10® 
G4 
G1 


A second  scratch  file  (SCRT2)  is  opened  and  the  GE0M2  data  is  copied  onto  SCRT2  to  the 
CELAS2  data  card  position.  The  boundary  list  data  is  processed  and  CELAS2  data  cards  are 
generated  and  appended  to  SCRT2.  For  each  five  word  entry  in  the  Boundary  Table  search 
the  GRIDS  data  card  images  for  the  following  data 

r. , z. , w. , IDF  from  GRIDS  card  "IDS.” 

^i-p  '^i-l  GRIDS  card  "IDS^._.|" 

^i+p  '^i+l  GRIDS  card  "IDS^.^.|" 

where  r = r^ , z = z^.  if  the  corresponding  identification  number  IDS  is  -1.  If  a GRIDS 
card  can  not  be  found  a fatal  error  exists.  The  following  data  is  calculated  for  each 
entry: 
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+ (r.^^  - r.)2  ^ 

^2  = + (^--1  - ’ 

" 4(Jl^+Jl2)  '^i+1  *"2  ^-l]  I ^ ’ 

*"  " 4(l^+Z^)  [*1  ""i+l  ^2  “"i-l]  T '"i  • 

The  coefficients  for  slot  interaction  are: 

B = ^ 

Mw 

(If  3 ^ 1 a fatal  error  exists) 

.OIW) 

F. 

1 

otherwi se . 

For  each  entry  in  the  Boundary  Table,  corresponding  GRIDF  data  card  with  ID  = IDF 
found  in  core.  For  the  corresponding  GRIDF  point  IDFj  calculate  the  following: 

sin^ 

2f 

a = 3 — 

Nw 

2r 


= S [(^4) 


and 


Z = Max 
e 


W Z 


where  F.  = M if  N = 0 or  N = G.  = | 
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CELAS2  elements  are  now  generated  for  the  slot  point  IDS^.  and  the  corresponding  axisym- 
metric  fluid  point  lUFj.  The  format  of  this  data  is: 


Id 

K 

G1 

Cl 

G2 

C2 

Id^  + 1 
e 

(l-a)K^ 

IDS. 

I1 1 1I 

blank 

blank 

Id^  + 2 
e 

aK^ 

IDS. 

I1 1 1I 

IDF. 

111  II 

Id^  + 3 
e 

a(l-a)K^ 

IDF. 

I1 1 1I 

blank 

blank 

The  element  identification  numbers  Id^  are  sequential  starting  with  10,000,001.  With 
each  new  point  on  the  boundary  list,  IDF^. , the  value  Id^  is  incremented  by  3. 

When  all  points  on  the  boundary  list  are  processed,  the  remainder  of  GE0M2  is  copied  onto 
SCRT2.  If  CSL0T3  and/or  CSL0T4  elements  are  encountered,  they  will  produce  PL0TEL  data 
card  images  which  are  written  on  SCRTl  in  the  following  format: 


CSL0T3  Data 

PL0TEL  Data 

Id 

Id  + 9*10® 

G1 

G1 

G2 

G2 

G3 

P 

Id  + 10-10® 

B 

G2 

M 

G3 

N 

Id  + 11-10® 

G3 

G1 

CSL0T4  Data 

PLOTEL  Data 

Id 

Id  + 12-10® 

G1 

G1 

G2 

G2 

G3 

G4 

Id  + 13-10® 

P 

G2 

B 

G3 

M 

N 

Id  + 14-10® 

G3 

G4 


Id  + 15-10" 
G4 
G1 
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14.  When  GE0M2  has  been  completely  copied  onto  SCRT2,  the  files  are  rewound  and  the  data  from 
SCRT2  (containing  the  new  CELAS2  elements)  and  the  PL0TEL  data  from  SCRTl  are  merged  and 
copied  back  onto  GE0M2. 

4.91.8  Subroutines 

4.91.8.1  IFP5A 

1.  Entry  Point:  IFP5A 

2.  Purpose:  Prints  formal  part  of  messages  for  IFP5. 

3.  Calling  Sequence:  CALL  IFP5A  (NUM) 

NUM  = IFP5  message  number. 

4.91.9  Design  Requirements 
Discussed  under  Method. 

4.91.10  Diagnostic  Messages 

Many  user  messages  relevant  to  the  acoustic  cavity  modeling  data  may  be  issued. 


4.91-7  (8/1/72) 


FUNCTIONAL  MODULE  PLTTRAN 


4.92  FUNCTIONAL  MODULE  PLTTRAN 

4.92.1  Entry  Point:  PLTTRA 

4.92.2  Purpose 

To  modify  the  SIL  and  BGPDT  tables  for  the  purpose  of  plotting  special  scalar  grid  points. 
Each  grid  point  with  one  degree  of  freedom  is  given  six  degrees  of  freedom  in  the  modified  SIL 
data  block.  These  points  are  identified  in  the  BGPDP  data  block  by  the  value  (-2)  in  the  first 
entry  for  each  point. 

4.92.3  DMAP  Calling  Sequence 

PLTTRAN  BGPDT, SIL  / BGPDP, SIP  / V,N,LUSET  / V,N,LUSEP  $ 

4.92.4  Input  Data  Blocks 

Data  Block  BGPDT  - Four  entries  per  grid  or  scalar  point  as  follows: 

1.  Local  coordinate  system  number  or  -1  if  point  is  a scalar  point. 

2-4.  X,  Y,  Z location  in  basic  coordinate  system. 

Data  Block  SIL  - One  entry  per  grid  or  scalar  point.  The  value  of  the  entry  is  the  location 
of  the  first  degree  of  freedom  of  the  point  in  the  vector  containing  all  degrees  of  freedom. 

4.92.5  Output  Data  Blocks 

Data  Block  BGPDP  - Same  format  as  BGPDT.  If  a point  is  determined  to  have  one  degree  of 
freedom  and  is  not  a scalar  point,  the  value  (-2)  is  placed  in  the  first  entry  for  that  point. 

Data  Block  SIP  - Same  format  as  SIL.  All  points  except  time  scalar  points  are  given  six  (6) 
degrees  of  freedom.  A true  scalar  point  has  the  value  (-1)  in  the  first  slot  of  its  BGPDT  entry. 

4.92.6  Parameters 

LUSET  - Total  number  of  degrees  of  freedom 

LUSEP  - New  value  for  LUSET  taking  into  account  the  change  in  the  number  of  degrees  of 
freedom  when  the  special  scalar  points  are  expanded  to  six  degrees  of  freedom. 
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4.92.7  Method 

The  SIL  is  read  1 word  at  a time;  the  BGPDT  is  read  4 words  at  a time.  If  the  difference 
between  the  new  SIL  number  and  the  previous  SIL  value  is  1 and  the  first  entry  in  the  BGPDT  is 
zero  a fluid  scalar  grid  point  exists.  In  this  event  the  new  SIP  increment  is  6 and  the  value 
is  placed  in  the  first  word  of  the  BGPDP  entry. 

4.92.8  Subroutines 
None. 

4.92.9  Design  Requirements 

Open  core  is  defined  at  /PLTRNl/  and  must  be  sufficient  to  hold  four  (4)  GIN0  buffers. 

4.92.10  Diagnostic  Messages 

Messages  3001,  3002,  3003,  3008,  5011  and  5012  may  be  issued. 
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4.93  MATRIX  MODULE  UPARTN  (PARTITIONS  A MATRIX  BASED  ON  USET) 

4.93.1  Entry  Point:  DUPART 

4.93.2  Purpose: 

To  compute  a partitioning  vector  based  on  the  displacement  sets  as  defined  by  USET  and  create 
the  symmetric  partitions  of  the  input  matrix. 

For  example  this  module  will  perform 


t'nnJ  => 

4.93.3  DMAP  Calling  Sequence 
UPARTN  USET,KNN  / KFF,KSF,KFS ,KSS  / C,Y,MAJ0R=N  / C,Y,SUB0=F  / C,Y,SUB1=S  $ 

4.93.4  Input  Data  Blocks 

USET  - Displacement  set  definitions  table  (This  may  also  be  USETD  if  extra  points  are 
present) . 

KNN  - Any  square  displacement  matrix.  The  associated  set  of  KNN  (N)  must  be  given  in 
the  first  parameter. 

Note:  1.  USET  may  not  be  purged. 

2.  If  KNN  is  purged,  UPARTN  will  return. 

4.93.5  Output  Data  Blocks 

KFF  - Matrix.  It  will  have  SUBO  rows  and  columns. 

KSF  - Matrix.  It  will  have  SUBl  rows  and  SUBO  columns. 

KFS  - Matrix.  It  will  have  SUBO  rows  and  SUBl  columns. 

KSS  - Matrix.  It  will  have  SUBl  rows  and  columns. 

Note:  Any  purged  or  omitted  output  data  blocks  will  not  be  written. 


Kff 

^fs 

^sf 

(/) 

to 
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4.93.6  Parameters 

MAJ0R  - Input  - BCD  - No  default  value.  This  is  the  set  of  KNN. 

SUBO  - Input  - BCD  - No  default  value.  This  is  the  first  subset  of  MAJ0R. 

SUBl  - Input  - BCD  - No  default  value.  This  is  the  second  subset  of  MAJ0R. 

Note:  1.  MAJOR,  SUBO,  and  SUBl  must  be  selected  from  the  following  list:  M,0,R,SG,SB,L, 

A,F,S,N,G,E,P,NE,FE,  and  D. 

2.  The  set  equation  MAJ0R  = SUBO  + SUBl  should  be  satisfied. 

4.93.7  Method 

The  module  driver,  DUPART,  checks  the  compatibility  of  the  parameter  data  and  directly  calls 
UPART  and  MPART  (an  entry  point  in  UPART).  All  work  is  then  accomplished  in  the  UPART  routine. 

4.93.8  Subroutines 

UPART  - See  subroutine  description,  section  3.5.9. 

4.93.9  Design  Requirements 
One  scratch  file. 

4.93.10  Diagnostic  Messages 

UPARTN  may  issue  one  of  the  following  diagnostic  messages: 

3007  or  3059 
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4.94  MATRIX  MODULE  UMERGE  (MERGES  TWO  MATRICES  BASED  ON  USET). 

4.94.1  Entry  Point:  DUMERG 

4.94.2  Purpose: 

To  merge  two  matrices  into  a third  based  on  the  displacement  sets.  For  example,  this 
module  will  perform: 


4.94.3  DMAP  Calling  Sequence 

UMERGE  USET, PH lA, PH  10  / PHIF  / C,Y,MAJ0R=F  / C,Y,SUB0=A  / C,Y,SUB1=0  $ 

4.94.4  Input  Data  Blocks 

USET  - Displacement  set  definitions  table  (this  may  also  be  USETD  if  extra  points  are 
present. ) 

Any  two  matrices  except  that  their  rows  must  be  associated  with  degrees-of- freedom 

PHIA 

PHI0  ~ specified  by  USET  and  the  parameter  list.  PHIA's  degrees-of-freedom  are  specified 
by  SUBO  and  PHI0's  by  SUBl . 

Note:  Either  matrix  may  not  be  present  and  its  respective  degrees-of-freedom  will  be  filled 


4.94.5  Output  Data  Blocks 

PHIF  - Matrix.  Its  terms  will  be  associated  with  degrees-of-freedom  in  the  set  specified 
by  MAJ0R. 

Note:  PHIF  must  be  present. 

4.94.6  Parameters 

MAJ0R  - Input  - BCD  - No  default  value.  This  is  the  set  of  PHIF. 

SUBO  - Input  - BCD  - No  default  value.  This  is  the  set  of  PHIA. 

SUBl  - Input  - BCD  - No  default  value.  This  is  the  set  of  PHI0. 


with  zeros 
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Note : 1.  MAJOR,  SUBO,  and  SUBl  must  be  selected  from  the  following  list:  M,0,R,S6,SB,L,A, 

F,S,N,G,E,P,NE,FE  and  D. 

2.  The  set  equation  MAJ0R  = SUBO  + SUBl  should  be  satisfied. 

4.94.7  Method 

The  module  driver,  DUMERG,  checks  the  compatibility  of  the  parameter  data  and  directly  calls 
SDRIB.  All  work  is  then  accomplished  in  the  SDRIB  routine. 

4.94.8  Subroutines 

SDRIB  - See  its  subroutine  description,  section  3.5. 

4.94.9  Design  Requirements 
One  scratch  file. 

4.94.10  Diagnostic  Messages 

UMERGE  may  issue  one  of  the  following  diagnostic  messages: 

3007  or  3059 
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4.95  MATRIX  MODULE  VEC  (CREATES  PARTITIONING  VECTOR  BASED  ON  USET) 

4.95.1  Entry  Point:  VEC 

4.95.2  Purpose: 

VEC  creates  a partitioning  vector  based  on  USET  that  may  be  used  in  PARTN  and  MERGE. 

4.95.3  DMAP  Calling  Sequence 

VEC  USET  / V / C,N,SET  / C,N,SET0  / C,N,SET1  $ 

4.95.4  Input  Data  Blocks 

USET  - Displacement  set  definition  table  (this  may  be  USETD  if  extra  points  are  present). 
Note:  USET  must  be  present. 

4.95.5  Output  Data  Blocks 

V - Partitioning  vector. 

Note:  V may  not  be  purged. 

4.95.6  Parameters 

SET  - Input-BCD-no  default.  SET  indicates  the  set  to  which  the  partitioning  vector  applies. 

SETO  - Input-BCD-no  default.  SETO  indicates  the  upper  partition  of  SET. 

SETl  - Input-BCD-no  default.  SETl  indicates  the  lower  partition  of  SET. 

4.95.7  Method 

^ 

The  BCD  parameters  SET,  SETO,  and  SETl  are  converted  to  bit  positions  in  USET.  They  must  be 
one  of  the  following  17  symbols:  M,0,R,SG,SB,L,A,F,S,N,G,E,P,NE,FE,D,H  or  else  a fatal  error  will 

result. 

USET  is  read  into  core  and  the  file  closed.  The  output  file  is  then  opened  and  each  entry  is 
compared  with  the  three  converted  parameters  as  follows: 

1.  USET  is  searched  for  members  of  SET.  If  the  entry  is  not  a member  of  SET,  it  is  checked 
that  it  is  not  a member  of  SETO  or  SETl  before  going  to  the  next  entry. 
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2.  The  entry  that  belongs  to  SET  is  then  checked  if  it  is  also  a member  of  SETl . If  it  is, 
the  entry  is  also  checked  if  it  is  a member  of  SETO,  which  is  fatal,  before  replacing  the 
entry  with  1 .0. 

3.  If  the  entry  is  a member  of  SET  and  not  a member  of  SETl,  the  entry  is  checked  to  verify 
that  it  is  a member  of  SETO  before  replacing  it  with  a 0.0. 

4.  After  all  entries  have  been  successfully  processed,  a check  is  made  to  insure  that  a 
vector  exists  and  that  the  entries  are  not  all  zeros  or  ones  (fatal  error). 

5.  The  rewritten  entries  are  then  written  onto  the  output  data  block  as  a matrix  consisting 
of  one  (1 ) column. 

4.95.8  Subroutines 


VEC  has  no  auxiliary  subroutines. 


4.95.9  Design  Requirements 

1.  Open  core  is  defined  at  / VECXXX  / 

2.  Layout  of  open  core  is  as  follows; 


Unused 

core 


/ VECXXX  / 


USET 


GIN0 

Buffer 


Open  core 
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4.96  MATRIX  MODULE  ADDS  (ADD  MATRICES) 

4.96.1  Entry  Point:  DADDS 

4.96.2  Purpose 

To  compute  [X]  = a[A]  + B[B]  + y[C]  + 6[D]  + e[E]. 

4.96.3  DMAP  Calling  Sequence 

ADD  A,B,C,D,E/X/C,Y,ALPHA=(1.0,2.0)/C,Y,BETA=(3.0,4.0)/C,Y,GAMMA=(S.0,6.0)/ 
C,Y,DELTA=(7.0,8.0)/C,Y,EPSLN=(9.0,0.0)  $ 

4.96.4  Input  Data  Blocks 

A,  B,  C,  D,  and  E must  be  distinct  matrices. 

Note:  Any  of  the  input  matrices  may  be  purged. 

4.96.5  Output  Data  Blocks 
X - Matrix. 

The  type  of  X is  maximum  of  the  types  ofA,B,C,D,E,a,3,y,6,e.  The  shape  of  X is 
the  shape  of  A if  A is  present.  Otherwise  it  is  that  of  the  first  non-purged  input. 

Note:  X cannot  be  purged. 

4.96.6  Parameters 

ALPHA  - Input-complex-no  default  value.  This  is  the  scalar  multiplier  for  A. 

BETA  - Input-complex-no  default  value.  This  is  the  scalar  multiplier  for  B. 

GAMMA  - Input-complex-no  default  value.  This  is  the  scalar  multiplier  for  C. 

DELTA  - Input-complex-no  default  value.  This  is  the  scalar  multiplier  for  D. 

EPSLN  - Input-complex-no  default  value.  This  is  the  scalar  multiplier  for  E. 

Note:  If  Im(a),  Im(3),  Im(y) , Im(6)  or  Im(e)  = 0.0,  the  parameter  will  be  considered  real. 

4.96.7  Method 

If  [A]  is  not  purged,  the  number  of  columns,  rows,  and  form  of  [X]  = number  of  columns,  rows, 
and  form  of  [A].  Otherwise  the  descriptors  of  the  first  non-purged  input  are  used.  The  type  of 
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[X]  is  the  maximum  compatible  type  of  [A],  [B],  [C],  [D] , [E],  ALPHA,  BETA,  GAMMA,  DELTA  and 
EPSLN.  ALPHA,  BETA,  GAMMA,  DELTA  and  EPSLN  are  assumed  to  be  real  if  their  imaginary  parts  are 
zero. 

4.96.8  Subroutines 

SADD  - See  subroutine  description.  Section  3.5.26. 

4.96.9  Design  Requirements 

Open  core  is  defined  at  /DADDA/. 

4.96.10  Diagnostic  Messages 
None. 
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4.97  FUNCTIONAL  MODULE  INPUT  (INPUT  GENERATOR) 

4.97.1  Entry  Point 
INPUT 

4.97.2  Purpose 

Generates  the  bulk  data  input  for  a large  number  of  academic  test  problems. 

4.97.3  DMAP  Calling  Sequence 

INPUT  II  ,12,13,14,15  / 01  ,02,03,04,05  / C,N,a  / C,N,B  / C,N,6  $ 

4.97.4  Input  Data  Blocks 

li  - As  required  by  the  execution  of  the  module*. 

4.97.5  Output  Data  Blocks 

0i  - As  required  by  the  execution  of  the  module*. 

4.97.6  Parameters 

a - Problem  Type  Selector*  (Input,  integer,  default  value  = -1  (an  illegal  value  for 
execution) ) 

B - Problem  type  option  selector*  (Input,  integer,  default  value  = 0) 

6 - Problem  type  option  selector*  (Input,  integer,  default  value  = 0) 

4.97.7  Method 

Based  on  the  values  of  the  parameters,  INPUT  reads,  via  F0RTRAN,  one  or  more  data  cards  from 
the  input  stream.  Since  the  data  deck  has  already  been  processed  through  the  ENDDATA  card  at  this 
point,  these  data  cards  always  follow  the  ENDDATA  card.  Since  F0RTRAN  1/0  is  used,  integer  data 
on  these  cards  must  be  right-justified.  Once  the  data  cards  are  read  and  checked,  INPUT  generates 
the  table  data  blocks  that  would  have  been  generated  if  the  equivalent  actual  cards  had  appeared 
in  the  bulk  data  deck.  These  generated  records  are  merged  in  with  any  coming  from  the  correspond- 
ing input  data  block  (generated  by  IFP)  and  are  written  onto  the  appropriate  output  data  block. 
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4.97.8  Subroutines 

IUNI0N  - Integer  function  which  computes  the  union  of  constraint  codes. 

INPABD  - Initializes  the  common  block  /INPUTA/ 

4.97.9  Design  Requirements 

Open  core  is  defined  at  /INPUTX/  and  must  be  sufficient  to  hold  two  GIN0  buffers. 

4.97.10  Diagnostic  Messages 

Many  user  messages  are  generated  by  INPUT.  These  are  mostly  related  to  improper  or  incon- 
sistent data  presented  by  the  user  and  are  usually  self-explanatory.  The  messages  generated 
internally  within  INPUT  are  1738  through  1745.  In  addition,  INPUT  writes  an  echo  of  all  data  read 
from  the  input  stream  and  certain  informational  output  related  to  the  processing  that  occurs  while 
generating  the  user's  problem  data. 


"^The  workings  of  INPUT  are  described  from  the  user's  point  of  view  in  Section  2.6  of  the  NASTRAN 
llspr’s  Manual . NASA  SP-222. 
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4.98  FUNCTIONAL  MODULE  INPUTTl 

4.98.1  Entry  Point 
INPTTl 

4.98.2  Purpose 

Recovers  GIN0-wn‘tten  data  blocks  (tables  or  matrices)  from  User  Tapes  designated  for  that 
purpose  (NASTRAN  permanent  GIN0  files  INPT,  INPl , INP2,  and/or  INP9).  Normally,  these  tapes 
would  be  written  by  the  companion  module  0UTPUT1  (see  Section  4.100)  in  a previous  run. 

4.98.3  DMAP  Calling  Sequence 

INPUTTl  / 01,02,03,04,05  / V,N,P1  / V,N,P2  / V,N,P3  $ 

4.98.4  Input  Data  Blocks 
None. 

4.98.5  Output  Data  Blocks 

0i  - Any  data  block  which  is  to  be  recovered  from  the  User  Tape.  Purged  outputs  (either 
implicit  or  explicit)  are  ignored. 

4.98.6  Parameters 

PI  - Tape  positioning  option  (Input,  integer,  default  value  = 0) 

P2  - User  Tape  code  (Input,  integer,  default  value  = 0) 

P3  - User  Tape  Label  (Input,  alphanumeric,  default  value  = 'XXXXXXXX') 

4.98.7 

INPTTl  examines  the  first  parameter  and  positions  the  User  Tape  designated  by  the  second 
parameter  (checking  the  User  Tape  Label  defined  by  the  third  parameter  if  appropriate).  INPTTl 
then  copies  the  next  data  blocks  from  the  User  Tape  and  writes  them  on  the  non-purged  output  data 
blocks  in  the  DMAP  instruction.  The  User  Tape  is  left  positioned  wherever  it  is  when  the  DMAP 
instruction  requirements  are  satisfied.  In  this  way,  multiple  calls  can  be  made. 
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The  configuration  of  files  and  records  on  the  User  Tape  is  shown  in  the  sketch  bel 


Load  Point 
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4.98.8  Subroutines 
None. 

4.98.9  Design  Requirements 

Open  core  is  defined  at  /INPIXX/  and  must  be  sufficient  to  hold  two  GIN0  buffers  plus  one 
word  of  working  core.  Since  blast  1/0  techniques  are  used,  efficiency  is  enhanced  by  any  additional 
core  up  to  the  longest  logical  record  to  be  read  in  any  one  data  block. 

The  User  Tapes  must  be  physical  tapes. 

4.98.10  Diagnostic  Messages 

Messages  3008,  4105,  4106,  4107,  4108,  4109,  4110,  4111,  4112,  4113,  4127,  4132,  4133,  4134, 
4135,  4136,  4137,  4138,  4139,  4140,  4141,  and  4142  may  be  issued. 

In  addition,  when  a file  table  of  contents  is  requested,  printout  is  generated  giving  the 
file  number  and  the  value  of  the  first  two  words  of  the  header  record  for  each  'file'  on  the  tape. 


4.98-3  (8/1/72) 


FUNCTIONAL  MODULE  INPUTT2 


4.99  FUNCTIONAL  MODULE  INPUTT2 

4.99.1  Entry  Point: 

INPTT2 

4.99.2  Purpose 

Recovers  F0RTRAN-written  data  blocks  tables  or  matrices)  from  User  Tapes.  Any  legitimate 
F0RTRAN  unit  number  not  already  utilized  by  NASTRAN  may  be  used  for  this  purpose.  On  the  CDC 
machines,  these  unit  numbers  must  also  be  compiled  into  the  system  in  deck  NASTRAN.  Normally, 
these  files  would  be  written  by  the  companion  module  01TPUT2  (see  Section  4.101)  in  a previous  run. 
It  is  intended  that  files  also  be  easily  generated  by  external  F0RTRAN  programs,  however. 

4.99.3  DMAP  Calling  Sequence 

INPUTT2  / 01,02,03,04,05  / V,N,P1  / V,N,P2  / V,N,P3  $ 

4.99.4  Input  Data  Blocks 
None. 

4.99.5  Output  Data  Blocks 

0i  - Any  data  block  which  is  to  be  recovered  from  the  User  Tape.  Purged  outputs  (either 
implicit  or  explicit)  are  ignored. 

4.99.6  Parameters 

PI  - File  Positioning  Option  (Input,  integer,  default  value  = 0) 

P2  - User  Tape  Code  (Input,  integer,  default  value  = 11.  This  is  the  F0RTRAN  unit 
number  for  the  file. 

P3  - User  Tape  Label  (Input,  Alphanumeric,  default  value  = 'XXXXXXXX'.) 

4.99.7  Method 

INPTT2  examines  the  first  parameter  and  positions  the  User  Tape  designed  by  the  second 
parameter  (checking  the  User  Tape  Label  defined  by  the  third  parameter  if  appropriate).  INPTT2 
then  copies  the  next  data  blocks  from  the  User  Tape  and  writes  them  (via  GIN0)  on  the  non-purged 
output  data  blocks  in  the  DMAP  instruction. 
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The  User  Tape  is  left  positioned  wherever  it  is  when  the  DMAP  instruction  requirements  are 
satisfied.  In  this  way,  multiple  calls  may  be  made. 

A description  of  the  file  configuration  is  given  below  for  those  F0RTRAN  programmers  who  may 
wish  to  generate  User  Tapes  with  their  own  external  programs  for  input  to  NASTRAN. 

Format  of  INPUTT2/0UTPUT2  File 


NASTRAN  File 


Rec 


KEY  > 0 


Data 


II 


KEY 


F0RTRAN  Rec 
1 


Length 

1 

KEY 


KEY  > 0 

3 

1 

1 Data  ( T KEY 

4 

KEY 

1 ; * 
KEY  < 0 

E0R 

5 

1 

2 

KEY  > 0 

. * 

6 

1 

1 Data  \ I KEY 

7 

KEY 

KEY  < 0 

E0R 

8 

1 

KEY  = 0 

E0F 

9 

1 

2 

1 

KEY  > 0 

A 

10 

1 

1 Data  i T KEY 

11 

KEY 

KEY  < 0 

E0R 

12 

1 

KEY  = 0 

E0F 

13 

1 

3 

KEY  = 0 

E0F  = E0D 

14 

1 

Restrictions : 

1.  Enough  core  must  be  available  to  hold  the  longest  record  segment. 

2.  A F0RTRAN  unit  must  be  available.  On  the  CDC,  this  means  that  the  PR0GRAM 

Deck  (NASTRAN)  must  be  re-compiled  and  Link  0 re-done  if  the  value  used  for 
parameter  P2  is  other  than  11. 
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The  logic  by  which  the  NASTRAN  logical  'records'  are  interrogated  is  given  in  the  sketch 
bel ow : 


4.99.8  Subroutines 
None. 

4.99.9  Design  Requirements 

Open  core  is  defined  at  /INP2XX/  and  must  be  sufficient  to  hold  two  GIN0  buffers  plus  the 
longest  FORTRAN  logical  record  on  the  User  Tape.  The  'User  Tape'  files  may  be  on  any  F0RTRAN 
readable  device. 

4.99.10  Diagnostic  Messages 

Messages  2187,  2190,  3008,  4105,  4106,  4107,  4108,  4109,  4110,  4111,  4112,  4113,  4132,  4133, 
4134,  4135,  4136,  4137,  4138,  4139,  4140,  4141,  and  4142  may  be  issued. 
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